A sutununda belirtilen hücre adreslerine

[tahsinanarat]

A sutununda belirtilen bir veya birden fazla hücre adreslerinin satırına B,C ve D sutunundaki karşılıklarını girmek istiyorum, bu konuda yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

A580-A581-A582-A676 274 Mühür Bozma VAR


Yukarıdaki örnekte A580 satırının B580 hücresine 274,
C580 Hücresine Mühür Bozma,
D580 Hücresine VAR,
A581, A582, A676 Satırınında aynı sutunlarına aynı değerleri girmek suteriyle A sutununda bilirtilen bütün hücre adreserine bu şekilde devam edecek.
Örnek dosya ektedir.

 

[Necdet]

Merhaba,

Umarım doğru anlamışımdır.

Sub AdreseGoreAktar()
    
    Dim i       As Long, _
        j       As Integer, _
        Dizi
    
    i = 2
    Do
        Dizi = Split(Cells(i, "A"), "-")
        For j = 0 To UBound(Dizi)
            Range(Dizi(j)).Offset(0, 1) = Cells(i, "B")
            Range(Dizi(j)).Offset(0, 2) = Cells(i, "C")
            Range(Dizi(j)).Offset(0, 3) = Cells(i, "D")
        Next j
        i = i + 1
    Loop Until Cells(i, "A") = ""
    
End Sub

 

[tahsinanarat]

Sn. Necdet hocam, konuyu doğru anlamışsınız, yalnız bu saadece A2 hücresinde bulunanları ilgili satırlara yazıyor, bu şekilde A3,A4, A5.... yani a sutunu boyunca devam etmesi gerekiyor, saygılarımla.

 

[Necdet]

Sn. Necdet hocam, konuyu doğru anlamışsınız, yalnız bu saadece A2 hücresinde bulunanları ilgili satırlara yazıyor, bu şekilde A3,A4, A5.... yani a sutunu boyunca devam etmesi gerekiyor, saygılarımla.

Merhaba,

Sabah işyerinde sohbet ede ede kodları yazdım, dolayısıyla döngünün dışına yazmışım herşeyi

Kodları yeniledim.

 

[tahsinanarat]

Sn. Necdet hocam çok teşekkür ederim, elinize sağlık. Saygılar.