-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
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
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: Alpha Laptopszerviz Kft.
Város: Pécs