Új hozzászólás Aktív témák

• #16496 Delila_1 veterán peterszky #16495

  Új Válasz 2013-01-28 11:07:15 #16496

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz peterszky #16495 üzenetére

  Ez a makró a Munka2 lap A oszlopába írja az adatokat.

  Sub mm()
  Dim sor%, usor%, WS As Worksheet
  Set WS = Sheets("Munka2")
  sor% = 3
  usor% = WS.Cells(Rows.Count, "A").End(xlUp).Row + 1
  Sheets("Munka1").Select
  Do While Cells(sor%, "A") <> ""
  If UCase(Left(Cells(sor%, "E"), 3)) = "E (" Then
  WS.Cells(usor%, "A") = "P: " & Cells(sor%, "C") & ", H: " & Cells(sor%, "D")
  usor% = usor% + 1
  End If
  sor% = sor% + 1
  Loop
  End Sub

Új hozzászólás Aktív témák