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

• #31524 Declare őstag Declare #31523

  Új Válasz 2016-05-12 14:12:55 #31524

  Ú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

  

  Declare

  őstag

  válasz Declare #31523 üzenetére

  Megvan nem er nevetni

  Sub copy()
  Dim MyCol As String
  Dim i As Integer
  For i = 1 To Range("A" & "1353").End(xlUp).Row Step 1
  If Application.WorksheetFunction.CountIf(Range("H" & i & ":H" & i), "1") > 0 Then
  Range("E13:AB14").copy Range("E" & i & ":AB" & i + 1)
  End If
  Next i
  
  End Sub

  ha esetleg van egyszerübb megoldas es van valakinek ideje/kedve leirni, szivesen olvasnam el ettöl függetlenül, hogy ez most müxik

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