çalışma sayfası hakkında

[muhalko]

Değerli uzmanlar ve üstadlar,

meyveler isimli çalışma sayfasından elma, armut, çilek isimli sayfalardan birine a5 hücresini kopyalamak istiyorum. Ancak kopyalanacak sayfanın ismi a1 hücresinde yazılı olan sayfa olsun istiyorum.

örneğin, a1 elma yazdığımda a5 deki veriyi elma sayfasındaki c4 hücresine kopyalasın.

Böyle bir makroya ihtiyacım var. Yardımcı olursanız sevinirim...

 

[Mustafa MUTLU]

Kodu Denermisiniz.

Sub AKTAR()
For a = 1 To Sheets.Count
        If [A1] Like Sheets(a).Name Then
        Sheets(a).Cells(4, "C") = [A5]
        End If
Next a
MsgBox "İŞLEM TAMAMLANMIŞTİR !...", vbInformation, "MUSTAFA MUTLU  533 740 45 49"
End Sub

 

[Mustafa MUTLU]

Kod işine yaramadı mı ?...

 

[muhalko]

Sayın mustafa mutlu üstadım,

allah razı olsun ellerine sağlık.

Henüz bakma fırsatım oldu. çok teşekkür ederim.

 

[Mustafa MUTLU]

Sayın mustafa mutlu üstadım,

allah razı olsun ellerine sağlık.

Henüz bakma fırsatım oldu. çok teşekkür ederim.

Rica ederim.
İşini görüyorsa ne güzel..
İyi Geceler.