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

• #13930 Fire/SOUL/CD félisten hallgat #13929

  Új Válasz 2012-06-01 18:38:31 #13930

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz hallgat #13929 üzenetére

  Sheets("Munka1").Range("B1:T1").Copy
  Sheets("Munka2").Range("L2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  :=False, Transpose:=True
  
  
  usor = Sheets("Munka2").Range("A1").End(xlDown).Row
  
  Sheets("Munka2").Activate
  Sheets("Munka2").Range("L2:L20").Copy
  Sheets("Munka2").Range("L21:" & "L" & usor).Select
  ActiveSheet.Paste
  
  Application.CutCopyMode = False
  usor = Sheets("Munka2").Range("A1").End(xlDown).Row
  
  Sheets("Munka2").Range("L" & usor).Select
  Dim i As Integer
  For i = usor To 2 Step -1
  If IsEmpty(Sheets("Munka2").Cells(i, 14)) Or (Sheets("Munka2").Cells(i, 14)) = 0 Then
  Sheets("Munka2").Rows(i).Delete
  End If
  Next i

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