Makro ile satır atlatarak veri birleştirme.

[ahzola]

Merhabalar

E2 hücresini girdiğim veriyi
G sütununda 6. satırdan itibaren başlayan verilerin sonuna
eklemek istiyorum. Eklenirken (bir tik boşluk) bırakarak eklenecek.
(Boşluğu E2 den de yapabiliyorum lakin böyle olursa daha garanti olur
uğraştırmayacaksa makro ile tariflensin.)

E2 deki veri G sütunundaki verilerin tamamına eklenmeyecek.

G6 ya eklenecek.
G7 satırı atlanacak (verisine dokunulmayacak)
G8 satırı atlanacak (verisine dokunulmayacak)
G9 ya eklenecek.
G10 satırı atlanacak (verisine dokunulmayacak)
G11 satırı atlanacak (verisine dokunulmayacak)
G12 ya eklenecek.
G13 satırı atlanacak (verisine dokunulmayacak)
G14 satırı atlanacak (verisine dokunulmayacak)
G15 ya eklenecek.

şeklinde 1 yazıp 2 boş bırakıp devam edecek.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Birlestir()
 
    Dim i As Long, say As Long
 
    Range("H6:H" & Rows.Count).ClearContents
 
    For i = 6 To Cells(Rows.Count, "G").End(xlUp).Row
        If say Mod 3 = 0 Then
            Cells(i, "H") = Cells(i, "G") & " " & Range("E2")
        Else
            Cells(i, "H") = Cells(i, "G")
        End If
        say = say + 1
    Next i
 
End Sub

.

 

[Orion1]

Dosyanız ektedir.

Sub ekle59()
Dim sat As Long, i As Long
Sheets("Sayfa1").Select
Application.ScreenUpdating = True
sat = Cells(Rows.Count, "G").End(xlUp).Row
For i = 6 To sat Step 3
    Cells(i, "H").Value = Cells(i, "H").Value & " " & Cells(2, "E").Value
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName

End Sub

 

[ahzola]

Sayın Orion1
Sayın Ömer Bey

Ayrı ayrı teşekkür ediyorum
ellerinize sağlık.