Boş hücre kriterine göre veri aktarma (Sayfa içi)

[simetri.]

İyi akşamlar.

H3 ten başlamak koşulu ile

sütun kontrol edilecek

boş hücre var ise şayet

Aynı satırın C D E ve F sütunlarındaki değerler kopyalanıp

K L M ve N sütunlarına yapıştırılacak.

Değerli yardımlarınızı bekliyorum arkadaşlar.

 

[Orion1]

dosyanız ektedir.

Sub aktar59()
Dim i As Long, sat As Long
Sheets("Sayfa1").Select
Range("K:N").ClearContents
Application.ScreenUpdating = False
sat = Cells(Rows.Count, "C").End(xlUp).Row
For i = 3 To sat
    If Cells(i, "H").Value = "" Then
        Range("C" & i & ":F" & i).Copy Range("K" & i)
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[simetri.]

Çok teşekkür ederim sayın Orion1

Ellerinize sağlık.