İsimlerin belirtilen hücrelere yazılması

[Tevfik_Kursun]

Merhaba Arkadaşlar,
E sütununda belirtilen hücrelere, H sütununda hizasındaki isimlerin yazılması için yardımlarınızı istiyorum.
Saygılarımla

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Hucrelere_Yaz()
    Dim Veri As Range
    
    Range("P1:AA30").ClearContents
        
    For Each Veri In Range("E1:E30")
        Range(Veri.Value) = Veri.Offset(, 3).Value
    Next
    
    Range("P:AA").EntireColumn.AutoFit
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Tevfik_Kursun]

Sayın Korhan Hocam,
İlginize çok teşekkür ederim. Bazı isimler uzun, bazıları kısa olduğu için ve bir de bulut içine yerleştirince her biri uygun şekilde olmuyor o nedenle iki hücreyi birleştirerek yaptım ama bu makro birleşik hücrelerde çalışmıyor. Bir yol bulmak mümkün müdür?
Saygılarımla

 

[Korhan Ayhan]

Güncel dosyanızı paylaşınız.

 

[Tevfik_Kursun]

Sayın Korhan Hocam,
İlginize çok teşekkür ederim. Zamansız gelen misafirlerim çalışmamı engelledi. Yazdığınızı çok geç gördüm. Ama bu sabah öğrettiğiniz yöntemle çözümledim. (Excel'e yaptırdım)
Saygılarımla