Sub URETIM()
Dim say As Worksheet
Dim I As Integer
Sheets("veri").Select
I = Range("P1").Select
For A = 1 To I
say = Sheets("veri").Cells(7 + I, 26)
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets(say).Select
Range("E5").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Next
End Sub
YAPMAK İSTEDİĞİM ŞEY VERİ SAYFASINDAN KAÇTANE VERİ VARSA BUNU BİR HÜCREYE YAZDIRIYORUM(P1) ORDAN BU DEĞERİ I DEĞİŞKENİNE ATAYIP FORMULLE HANGİ SAYFAYA GİDECEGİ ÖNCEDEN BELİRLENEN ( BUDA "Z7" + "Z8" .......DE ) SIRAYLA Z8 YANINDAKİ SUTUNDANDAKİ BİLGİLERİ KOPYALAYIP Z7 DE YAZAN SAYFAYA GİTMESİNİ SAĞLAMAYA CALIŞIYORUM TABİ ALTINDAKİ SATIRLARDANDA AYNI ŞEKİLDE BİLGİLERİ ALMASI GEREK Z7 DE 1 DEN 30 KADAR SAYILAR MEVCUT.
YARDIM EDERSENİZ MEMNUN OLURUM
Dim say As Worksheet
Dim I As Integer
Sheets("veri").Select
I = Range("P1").Select
For A = 1 To I
say = Sheets("veri").Cells(7 + I, 26)
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets(say).Select
Range("E5").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Next
End Sub
YAPMAK İSTEDİĞİM ŞEY VERİ SAYFASINDAN KAÇTANE VERİ VARSA BUNU BİR HÜCREYE YAZDIRIYORUM(P1) ORDAN BU DEĞERİ I DEĞİŞKENİNE ATAYIP FORMULLE HANGİ SAYFAYA GİDECEGİ ÖNCEDEN BELİRLENEN ( BUDA "Z7" + "Z8" .......DE ) SIRAYLA Z8 YANINDAKİ SUTUNDANDAKİ BİLGİLERİ KOPYALAYIP Z7 DE YAZAN SAYFAYA GİTMESİNİ SAĞLAMAYA CALIŞIYORUM TABİ ALTINDAKİ SATIRLARDANDA AYNI ŞEKİLDE BİLGİLERİ ALMASI GEREK Z7 DE 1 DEN 30 KADAR SAYILAR MEVCUT.
YARDIM EDERSENİZ MEMNUN OLURUM