Aynı satırda birer hücre atlayarak yazı yazmak

[ASLAN7410]

Merhaba hayırlı çalışmalar.

Ekte gönderdiğim excel dosyamın 1. sayfasının H3 hücresindeki yazıyı
birer hücre atlayarak GX3 hücresine kadar yazmak istiyorum.

Yardımcı olur musunuz?
.

 

[Asri]

H3:I3 ü seçim. Seçili alanın sağ alt köşesindeki küçük siyah kareden tutup sağa istediğiniz kadar çekin.

 

[ASLAN7410]

Sayın asri, ilginiz için çok teşekkür ediyorum.

Bu işlemi makro ile yapabilir miyiz?

 

[Asri]

Sayın asri, ilginiz için çok teşekkür ediyorum.

Bu işlemi makro ile yapabilir miyiz?

Sayfanın kod bölümüne yapıştırın.
Sadece H3 Hücresinde değişiklik olduğunda çalışır.

Hücre değişince,

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If Intersect(Target, Range("H3")) Is Nothing Then Exit Sub
       veri = Target.Value
       For i = 10 To 207 Step 2
           Cells(3, i).Value = Target.Value
       Next i
End Sub

Butonlu;

Sub butonlu()
    For i = 10 To 207 Step 2
        Cells(3, i).Value = Range("H3").Value
    Next i
End Sub

 

[ASLAN7410]

Sayın asri, kod gayet güzel çalışıyor, ellerinize sağlık. Kusura bakmayın uğraştırmak istemiyorum.

Bu kodu aşağıdaki gibi butona bağladığımda hata verdi.
Bu işlemi butonla yapmak istiyorum.

Sub Aktar()
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If Intersect(Target, Range("H3")) Is Nothing Then Exit Sub
       veri = Target.Value
       For i = 10 To 207 Step 2
           Cells(3, i).Value = Target.Value
       Next i
End Sub

 

[Asri]

Sayın asri, kod gayet güzel çalışıyor, ellerinize sağlık. Kusura bakmayın uğraştırmak istemiyorum.

Bu kodu aşağıdaki gibi butona bağladığımda hata verdi.
Bu işlemi butonla yapmak istiyorum.

Sub Aktar()
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    If Intersect(Target, Range("H3")) Is Nothing Then Exit Sub
       veri = Target.Value
       For i = 10 To 207 Step 2
           Cells(3, i).Value = Target.Value
       Next i
End Sub

İlk mesaja eklendi.

Bu taleplerinizi ilk mesajınızda belirtirseniz daha iyi olurdu.
Sonuçta sizin düşündüğünüzü biz bilemeyiz.

Hem siz sonuca daha çabuk ulaşırsınız. Hem de biz boşuna uğraşmamış oluruz.

 

[ASLAN7410]

Sayın asri çok teşekkür ediyorum, ellerinize sağlık, tam istediğim gibi oldu.

Hayırlı çalışmalar hayırlı günler diliyorum.