Sayfa kopyalamak

[baka]

Arkadaşlar ,
İyi akşamlar....

Matbu form kopyala ile ilgili bir sorunum var..Şöyleki

Açık olan 2 tane kitabım var..( A.xls // B.xls )

B.xls ismi değişebilen bir dosya..C ... D... olabilr. ( ismini A.xls deki C& hücresinden alıyor )


UserForm kullanarak...A.xls deki ( "ANDRE1" ) isimli sayfaya gerekli hücreleri doldurduktan sonra ( ki bu sayfa ŞABLON sayfası ) aynı sayfayı açık olan diğer kitapta ( B.xls...) aynı isimli sayfaya kopyalamak istiyorum.

Bu konu ile ilgili olarak yardımcı olabilecek arkadaşlara şimdiden teşekkürü borç bilirim..

Saygılarımla

 

[baka]

iyi akşamlar

Anlatamadımmı acaba ?

Saygılar

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub CommandButton1_Click()
Dim son As Integer
son = Cells(65536, "a").End(xlUp).Row
Cells(son, "a") = TextBox1
Cells(son, "b") = TextBox2
Cells(son, "c") = TextBox3
TextBox1 = "": TextBox2 = "": TextBox3 = ""
End Sub

Private Sub CommandButton2_Click()
Dim k, i
     For k = 2 To Workbooks.Count
     For i = 2 To Sheets.Count
        If Workbooks("A").Sheets("ANDRE1").Name Like Workbooks(k).Sheets(i).Name Then
          Workbooks("A").Sheets("ANDRE1").Cells.Copy Workbooks(k).Sheets(i).[a1]
        End If
    Next: Next
MsgBox "İşlem tamam", vbInformation
End Sub

 

[baka]

dosya ekledim

Ziya Bey ,

Cevabınız ve emeğiniz için teşekkür ederim.Dosyayı ekledim..

Saygılar

Bahadır

 

[baka]

eklnmemiş

Dosya eklemeyi tekrar deniyorum