Makrodan başka bir tabloya ulaşmak nasıl olur

[HD1975]

Merhaba

SAyın hocalarım göndermiş olduğum makroları sizler yapıp gönderdiniz.
Yalnız bir ricam olacak makrolarda aynı kitabın başka sayfasına veri
yazdırıyoruz.Benim ihtiyacım aynı kitabın sayfa3 üne değilde
D:\ORTAK EXCEL TABLOLARI\Chliste.xls isimli dosyanın sayfa3 üne
yazdırsın bu dosyadaki sütunarda aynı karşılıklara denk geliyor.

Makronun içini bu bağlantıya göre düzenleyebilirseniz işim hallolacak

Saygılar

H.D.

 

[HD1975]

SAyın Uzmanlarım Yardım lütfen

Merhaba

SAyın hocalarım göndermiş olduğum makroları sizler yapıp gönderdiniz.
Yalnız bir ricam olacak makrolarda aynı kitabın başka sayfasına veri
yazdırıyoruz.Benim ihtiyacım aynı kitabın sayfa3 üne değilde
D:\ORTAK EXCEL TABLOLARI\Chliste.xls isimli dosyanın sayfa3 üne
yazdırsın bu dosyadaki sütunarda aynı karşılıklara denk geliyor.

Makronun içini bu bağlantıya göre düzenleyebilirseniz işim hallolacak

Saygılar

H.D.

Göndermiş olduğum dosyadaki makroyu yukarıda yazdığım gibi düzeltme imkanı
yokmu yardım lütfen

Saygılar

 

[Zeki Gürsoy]

Merhaba,

"Chliste.xls" nin "Sayfa3" tablo yapısı nasıl? Bu eklentinizin "Sayfa3" ü gibi midir?

 

[HD1975]

tamamen aynıdır

Merhaba,

"Chliste.xls" nin "Sayfa3" tablo yapısı nasıl? Bu eklentinizin "Sayfa3" ü gibi midir?

Chlistenin sayfa3 ü aynısıdır.DAha doğrusu o sayfayı oraya
kopyaladım.
saygılar

 

[Zeki Gürsoy]

Ekli dosyayı deneyin..

Sub disari_aktar()
Dim wb As Object, sh As Object, son&

Application.ScreenUpdating = False

    Set wb = Workbooks.Open( _
        "D:\ORTAK EXCEL TABLOLARI\Chliste.xls")

    Set sh = wb.Worksheets("Sayfa3")

    With sh
        son = .[d65000].End(3).Row + 1
        .Cells(son, "d") = [b3]
        .Cells(son, "e") = [b4]
        [COLOR=DarkGreen][B]'[/B].Cells(son, "g") = ???[/COLOR]
        .Cells(son, "h") = [b6]
        .Cells(son, "m") = [b8]
        .Cells(son, "n") = [b9]
        .Cells(son, "fm") = [b10]
        .Cells(son, "fn") = [b11]
    End With

    wb.Close 1

Application.ScreenUpdating = True
End Sub

.

 

[HD1975]

TAm olarak olmadı

İyi akşamlar

Üstadım data isimli dosyayı açıp kapıyor kayıt yapıyor ama veriyi değil
sadece kaydediyor.

Not kısmına yazdığım notları fh hücresinden itibaren kaydetmiyor.

Rica etsem Aktar isimli makronun içindeki kodu D:\ortak excel dosyaları\data.xls
olarak güncelleyebilirmisiniz.

Saygılar