Sayfa isim bilgisini hücreden alma

[dorucoglu]

Arkadaşlar Merhaba,

Sayfaya ait isim bilgilerini liste olarak sıraladım. Bundan sonra yapmak istediğim.

Sayfa isimlerini hücreden alarak ilgili sayfaya otomatik değer girişi yapmak istiyorum. Değişken olan verim sayfa isimleri, satır bilgisi ve değerler.

Aşağıdaki kodu yazdım fakat çalışmadı. Yardımcı olursanız sevinirim.

------------------------------------------------------------
satır = 3

Do Until Sheets("menu").Cells(satır, 1) = ""


Range ("C" & satır & ":G" & satır & """).Select" ' Satır değişkenine bağlı alan kopyalama
Selection.Copy

sayfa = Sheets("menu").Cells(satır, 1) ' sayfa ismini hücreden alma

Sheets("""&sayfa&""").Select
Cells(3, 5).Select
ActiveSheet.Paste

satır = satır + 1


Loop

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub AKTAR()
    Dim Satir, Sayfa
    
    Satir = 3
    
    Do Until Sheets("menu").Cells(Satir, 1) = ""
        Sayfa = Sheets("menu").Cells(Satir, 1)
        Sheets("menu").Range("C" & Satir & ":G" & Satir).Copy Sheets(Sayfa).Cells(3, 5)
        Satir = Satir + 1
    Loop
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[dorucoglu]

Hocam çok teşekkür ederim.

 

[Mehmet Sait]

Kod revize

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub AKTAR()
    Dim Satir, Sayfa
    
    Satir = 3
    
    Do Until Sheets("menu").Cells(Satir, 1) = ""
        Sayfa = Sheets("menu").Cells(Satir, 1)
        Sheets("menu").Range("C" & Satir & ":G" & Satir).Copy Sheets(Sayfa).Cells(3, 5)
        Satir = Satir + 1
    Loop
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Merhaba hocam,

Yukarıda ki koda A1 den A400 kadar yapmak istesek nasıl yapmalıyız.

Bir dosyamda 400 sayfa var. Sayfa adlarını A1 den A400 kadar yazıp aktarmak istiyorum.

Teşekkür ederim.

 

[Korhan Ayhan]

Satir değişkenine 1 değerini verip kodu çalıştırın. 401. satır boş ise kod otomatik duracaktır.

 

[Mehmet Sait]

Satir değişkenine 1 değerini verip kodu çalıştırın. 401. satır boş ise kod otomatik duracaktır.

Hocam,

Subscript out of range hatası veriyor.