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

• #44898 zsolti_20 senior tag Sprite75 #44897

  Új Válasz 2020-09-22 22:23:04 #44898

  Ú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

  

  zsolti_20

  senior tag

  válasz Sprite75 #44897 üzenetére

  Sikerült közben VBA-val megoldanom. Bemásolom ide hátha valakinek hasznos lesz még.

  Sub kecske()
Dim i As Integer
Dim x As Long
Dim counter As Integer
    
counter = 10
For i = 9 To 20
x = Range("E" & i & ":J" & i).SpecialCells(xlCellTypeBlanks).Count
Cells(i, 1).Value = x
If x < 6 Then
    Range("D" & i & ":J" & i).Copy
    Range("AA" & counter).PasteSpecial Paste:=xlPasteValues
    
counter = counter + 1
End If
    
Next i
End Sub

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