Döngü Sorusu

[smallburak]

Merhabalar,
1. resimde görüldüğü gibi bir veri sayfam var. Yapılan deneylerin isimleri bunlar. 2. resimdeki gibi bir anasayfam var. Burada mesela, SB_23009 isminde yapılan ve yapılacak deneylerle ilgili bilgi veriyor. Önceden 10 tane deney yapmışız ve şimdi 6 tane daha yapmak istiyoruz. Yani şu anda en son deney numarası SB_23009_10.
Ben istiyorum ki, bu 10.deneyin üzerinde birer birer 6 defa numara ekleyerek 1. fotoğraftaki en alttaki ilk boş satıra
SB_23009_11
SB_23009_12
...
...
SB_23009_16

şeklinde kendisi isimlendirme yapsın. Bu bir döngü olacak anladığım kadarıyla ama ben tam yazamadım. Hata verdi.
2. fotoğrafa bakarsak, döngüye E3 + 1 ile başlayıp en son E3 + 6 ile bitirecek. Tabi, 2-3 satır yukarıda belirttiğim gibi isimlendirmenin başına B3 hücresindeki veriyi koyarak numaralandırma yapacak. Nasıl yapabilirim?





Şimdiden teşekkür ederim!

 

[Muzaffer Ali]

Merhaba.
Deneyiniz.

1.foto Sayfa1
2.foto Sayfa2 olarak adlandırıldı
Sayfa isimlerini kendinize göre değiştirin.

Sub Test()
    Dim syf1 As Worksheet
    Dim syf2 As Worksheet
    Dim Bak As Integer
    Dim SonSatir As Long
    
    Set syf1 = Worksheets("Sayfa1")
    Set syf2 = Worksheets("Sayfa2")
    
    For Bak = 1 To syf2.Range("E3")
        SonSatir = syf1.Cells(Rows.Count, "A").End(xlUp).Row + 1
        syf1.Cells(SonSatir, "A") = syf2.Range("B3") & "_" & syf2.Range("E2") + Bak
    Next
End Sub

 

[smallburak]

Merhaba.
Deneyiniz.

1.foto Sayfa1
2.foto Sayfa2 olarak adlandırıldı
Sayfa isimlerini kendinize göre değiştirin.

Sub Test()
    Dim syf1 As Worksheet
    Dim syf2 As Worksheet
    Dim Bak As Integer
    Dim SonSatir As Long
   
    Set syf1 = Worksheets("Sayfa1")
    Set syf2 = Worksheets("Sayfa2")
   
    For Bak = 1 To syf2.Range("E3")
        SonSatir = syf1.Cells(Rows.Count, "A").End(xlUp).Row + 1
        syf1.Cells(SonSatir, "A") = syf2.Range("B3") & "_" & syf2.Range("E2") + Bak
    Next
End Sub

Merhaba çok teşekkür ederim. Süper çalışıyor.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.