DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub aktar()
Application.ScreenUpdating = False
Range("A1:F65536").ClearContents
sat = 1
For i = 2 To 1000
Sheets(i).Range("A1:F9").Copy Range("A" & sat)
sat = sat + 9
Next i
Application.ScreenUpdating = true
Application.CutCopyMode = False
MsgBox "İşlem tamam"
End Sub
bu sekilde oluyoo satırlar hem eksık cıkıyo verıler yıne gorunmuyoorSayın tokerx22,
Herhangi bir sayfaya buton koyarak, aşağıdaki kodları butona bağlayın.
Sub aktar()
Application.ScreenUpdating = False
If Sheets(1).Name <> "Aktarılan" Then
Worksheets.Add.Name = "Aktarılan"
Worksheets("Aktarılan").Move before:=Worksheets("ANASAYFA")
Else
Sheets("Aktarılan").Select
Cells.ClearContents
End If
a = Worksheets.Count
For b = 4 To a - 1
[A65536].End(xlUp).Offset(1, 0).Select
Sheets(b).Range("A1:F9").Copy
ActiveSheet.PasteSpecial
Next b
Application.ScreenUpdating = True
Range("A1").Select
End Sub
Kodları aşağıdakiler ile değiştirin.bu sekilde oluyoo satırlar hem eksık cıkıyo verıler yıne gorunmuyoor
SAYFAYI AKTARMADA SORUN YOK AMA HESAPLARA DEGER GIRDIGIM ZAMAN AKTARMADA GORUNMUYOKodları aşağıdakiler ile değiştirin.
Sub aktar()
Application.ScreenUpdating = False
If Sheets(1).Name <> "Aktarılan" Then
Worksheets.Add.Name = "Aktarılan"
Worksheets("Aktarılan").Move before:=Worksheets("ANASAYFA")
Else
Sheets("Aktarılan").Select
Cells.Delete
End If
a = Worksheets.Count
For b = 4 To a - 1
[C65536].End(xlUp).Offset(0, -2).Select
Sheets(b).Range("A1:F9").Copy
ActiveSheet.PasteSpecial
Next b
Application.ScreenUpdating = True
Range("A1").Select
MsgBox "Aktarma Tamam"
End Sub
arkadaslar vermiş oldugunuz kodların hepsi calısıyo hepınıze gercekten cok tesekur ederım basınızı baya agrıtımmŞaban Sertkaya;294619' Alıntı:8 Nolu mesajda kodları düzelterek tekrar verdim. O kodları kullanarak deneyin.
demiştiniz. A1-F9 arasını istediğiniz şekilde başka bir sayfaya aldırıyoruz. Sizin asıl istediğniz ne ? Sayfaların hepsini 1 defada yazdırmak mı ?Sayfa 2 Den Baslayip Sayaf 1000 E Kadar Tum Sayfalarin İÇİden
A1 F9 Arasini Bos Bİr Excell Yada Not Defterine Yada Baska Bir Şeye Aktarma Yapa Bilirmiyiz.... ?
ARKADASLAR DOSYAYI EKE KOYDUM MARKODAN AKTAR DEDIGIM ZAMAN CIKAN SAYFAYA BİR BAKIN MUSTERI ADI SOYADI KOYU VE HESAPLARDAKI YAPILAN DEGİŞİKLİKLER AKTARILAN YERDE GOZUKMUYOR ..demiştiniz. A1-F9 arasını istediğiniz şekilde başka bir sayfaya aldırıyoruz. Sizin asıl istediğniz ne ? Sayfaların hepsini 1 defada yazdırmak mı ?
arkadaşım dosya burda dosyayı ben gönderiyorum düzeltirseniz sevinirimARKADASLAR DOSYAYI EKE KOYDUM MARKODAN AKTAR DEDIGIM ZAMAN CIKAN SAYFAYA BİR BAKIN MUSTERI ADI SOYADI KOYU VE HESAPLARDAKI YAPILAN DEGİŞİKLİKLER AKTARILAN YERDE GOZUKMUYOR ..
BENIM ISTEDIGIM HEPSINI ALT ALTA YAZDIRMAK ISTIYORUM ....
YAZDIR MARKOLARINDA YALINIZ SADECE BİR SAYFAYA 1 LISTE YAZIYOR BUDA 1000 SAYFAYA ES DEGER GELIYO BEN BU SEKLILDE OLURSA ENAZ BIR SAYFAYA 10 KISI YAZDIRA BILIYORUMM BU SEKILDE 100 SAYFAYA YADA DAHA AZ SAYFA HARCYARAK BU İŞİ BITIRE BILIRIM
...SAYGILAR..
Sayın nerox77,
Aşağıdaki kodu kullanın.
Ben Süt Hesapları sayfasında "Fahri Karabacak" ismine tıklayıpta ilgili sayfaya geçtiğimde, A1 ve B1 hücrelerinde formül olmadığından 0 (Sıfır) değerini gördüm.
Aktarma işleminden sonra,
"Aktarılan" isimli sayfada Ctrl + F tuşları ile "Çomaklı" diye aratırsanız verinin gelmiş olduğunu görürsünüz. Diğer isim ve adreslerin çıkmaması sizin ilgili sayfalarda A1 ve B1 hücrelerine formül yazmamanızdan kaynaklanıyor.
Kullanabileceğiniz kod,
Sub aktar()
Application.ScreenUpdating = False
If Sheets(1).Name <> "Aktarılan" Then
Worksheets.Add.Name = "Aktarılan"
Worksheets("Aktarılan").Move before:=Worksheets("ANASAYFA")
Else
Sheets("Aktarılan").Select
Cells.Delete
End If
a = Worksheets.Count
For b = 4 To a - 1
[C65536].End(xlUp).Offset(0, -2).Select
Sheets(b).Range("A1:F9").Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next b
Application.ScreenUpdating = True
Range("A1").Select
MsgBox "Aktarma Tamam"
End Sub[/QUOAR
ARKADASLAR GERCETEN COK TESEKUR EDERIZ AMA SORUNUZU HALA COZEEDIK BİR ORNEK EKTE
Sub aktar()
Application.ScreenUpdating = False
Range("A1:F65536").ClearContents
sat = 1
[COLOR=red]For i = 1 To 11
Sheets(i).Range("A1:G9").Copy
Range("A" & sat & ":G" & sat + 9).PasteSpecial Paste:=xlPasteValues
sat = sat + 12
Next i
[/COLOR]Application.ScreenUpdating = True
Application.CutCopyMode = False
MsgBox "İşlem tamam"
End Sub
Sayın nerox77,
Aşağıdaki kodu kullanın.
Ben Süt Hesapları sayfasında "Fahri Karabacak" ismine tıklayıpta ilgili sayfaya geçtiğimde, A1 ve B1 hücrelerinde formül olmadığından 0 (Sıfır) değerini gördüm.
Aktarma işleminden sonra,
"Aktarılan" isimli sayfada Ctrl + F tuşları ile "Çomaklı" diye aratırsanız verinin gelmiş olduğunu görürsünüz. Diğer isim ve adreslerin çıkmaması sizin ilgili sayfalarda A1 ve B1 hücrelerine formül yazmamanızdan kaynaklanıyor.
ARKADAŞIM KODU KULLANIYORUM FAKAT BU SEFERDE TABLO TAM GÖRÜNMÜYOR BELLİ BİR KISMA KADAR GÖRÜNÜYOR RAKAMLAR FALAN YOK