Soru İsim yazdırmak

Katılım
17 Haziran 2008
Mesajlar
1,871
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Altın Üyelik Bitiş Tarihi
26-03-2020
Merhaba arkadaşlar;

C2: Ergün keskin D2: Gündüz
C3: Murat yıldız D3: Akşam

Şeklinde belirttiğim adreslere veri girilmiş durumda .

Üçüncü kişiyi C4: Kadir kara D4: Gündüz
C5: Ergün keskin D5: Akşam şeklinde command buton ile 30 gün değişmeli olarak nasıl yazdırabilirim ?

Yardımcı arkadaşa şimdiden Teşekkürler .
 

ÖmerBey

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2012
Mesajlar
4,405
Excel Vers. ve Dili
2007 Türkçe
Merhaba,
Deneyiniz...
Kod:
Sub kod()
isim = Array("ERGÜN KESKİN", "MURAT YILDIZ", "KADİR KARA")
zmn = Array("GÜNDÜZ", "AKŞAM")
For a = 1 To 30 * (UBound(zmn) + 1)
    Cells(a + 1, "C") = isim((a - 1) Mod (UBound(isim) + 1))
    Cells(a + 1, "D") = zmn((a - 1) Mod (UBound(zmn) + 1))
Next
End Sub
 
Katılım
17 Haziran 2008
Mesajlar
1,871
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Altın Üyelik Bitiş Tarihi
26-03-2020
ÖmerBey

Hocam çok Teşekkürler,, Tamamdır.. Elinize sağlık.
 
Üst