Sayfaya Aktarma

[buseen]

(i5) Den (i100) E Kadar Veya BaŞka Bİr Sutunda A Olabİlİr B Olabİlİr
Olan İsİm Sayfasina Aktarmak İstİyorsak
Nasil Yapabİlİrİz.aktarilacak Sayfa İsİmlerİ SeÇme Lİsteden Yapabİlİrmİyİz.
ÖĞrenecem Ben Bunu Ustalarin Sayesİnde .

 

[Orion1]

Dosyanızı xls olarak kaydedip ekleyin.
Mesela bende ofis 207 yok.Çoğu arkadaşımızdada yoktur sanırım.

 

[buseen]

ArkadaŞlar Bİr Yardim Edİn LÜtfen

 

[Orion1]

Dosyanız ekte.

Sub aktar()
    Sheets("işlemler").Select
    Application.ScreenUpdating = False
    Range(Cells(2, "A"), Cells(2, "F")).Copy
    For i = 6 To Cells(65536, "I").End(xlUp).Row
        sat = Sheets(Cells(i, "I").Value).Cells(65536, "B").End(xlUp).Row + 1
        If sat >= 65533 Then
            MsgBox "[ " & Sheets(i).Name & " ] isimli sayfada satır doldu..!!" _
            & vbLf & "Kayıt girilmedi..!!", vbCritical, "UYARI"
            GoTo atla
        End If
        Sheets(Cells(i, "I").Value).Cells(sat, "A").PasteSpecial Paste:=xlPasteValues
atla:
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "Veri Aktarma İşlemi yapıldı.", vbOKOnly + vbInformation _
    , Application.UserName
        ', "E V R E N"
End Sub

 

[buseen]

Evren Bey Sonsuz TeŞekkÜrederİm

Userform Dan Sayfalara Verİ Aktarma
Sayfalardan İlgİlİ Sayfalara Verİ Aktarmayla İlgİlİ Aciklayici
Örnek Veya Notunuz Varsa Ekleye Bİlİrmİzİnİz. Byee

 

[Orion1]

Evren Bey Sonsuz TeŞekkÜrederİm

Userform Dan Sayfalara Verİ Aktarma
Sayfalardan İlgİlİ Sayfalara Verİ Aktarmayla İlgİlİ Aciklayici
Örnek Veya Notunuz Varsa Ekleye Bİlİrmİzİnİz. Byee

Ferhat beyin bu konuyla ilgili bir çalışması var.Aşağıdaki linki inceleyiniz.
http://www.excel.web.tr/showthread.php?t=48862

 

[buseen]

Evren Bey

Evren Bey Bİr Dosyaya Bakarmisiniz TŞk

 

[Orion1]

4 numaralı mesajdan dosyayı indirebilirsiniz.

 

[buseen]

TeŞekkÜr

Verdİgİnİz Emeklerden Dolayi Çook TeŞekkÜrler