tablodaki verileri kartlara aktarma

[cairotaner]

arkadaşlar forumda aradım.benim sorunuma benzer konular buldum ancak acemilikten olsa gerek kodları kendime göre uyarlayamadım. "sayfa1" de girmiş olduğum verileri kişilerin kartlarına dağıtacak kodlara ihtiyacım var.şimdiden tüm arkadaşlara teşekkür ederim.

 

[bedersu]

Merhaba,
Dosyanızda bir tane örnek doldurursanız manuel olarak,mesela Ali'nin bilgilerini manuel olarak dağıtırsanız daha anlaşılır olur.Bu şekilde hangi bilgilerin aktarılacağı tam açık değil.

 

[cairotaner]

manuel giriş yapılmış örnek ektedir

sayın bedersu manuel giriş yaptığım örneği dosyaya ekledim.

 

[bedersu]

Tarih-kasa no ve alacak tamam ama oradaki 700 ytl nereden geliyor?Sayfa1'de öyle bir veriye rastlemedım.Yoksa sadece bu üç verinin mi aktarılmasını istiyorsunuz? Tarih-kasa no ve alacak

 

[cairotaner]

Tarih-kasa no ve alacak tamam ama oradaki 700 ytl nereden geliyor?Sayfa1'de öyle bir veriye rastlemedım.Yoksa sadece bu üç verinin mi aktarılmasını istiyorsunuz? Tarih-kasa no ve alacak

700 ytl kafanızı karıştırmasın. yalnızca bu üç verinin aktarılması önemli.

 

[bedersu]

Merhaba,
Sorunuz için iki ayrı kod gönderiyorum.Kısa olan birinci kod ile kişilere özel sayfaların var olduğunu farzederek sadece Sayfa1'deki verileri sıraya göre yazdırıyoruz.
İkinci kod ile de Sayfa1'de ismi bulunan her kişi için ayrı bir sayfa oluşturuyor,sayfalara kişi isimlerini veriyor,sayfadaki başlıkları atıp düzenlemesini yapıyoruz ve sırasıyla kişilerin bilgilerini yazıyoruz.


Sub yaz()
sıra = WorksheetFunction.CountA(Range("A:A"))

For i = 8 To sıra + 3

Sheets(i - 6).Range("D4") = Sheets("Sayfa1").Range("A" & i)
Sheets(i - 6).Range("E4") = Sheets("Sayfa1").Range("B" & i)
Sheets(i - 6).Range("F4") = Sheets("Sayfa1").Range("G" & i)

Next
End Sub

Sub aktar()

sıra = WorksheetFunction.CountA(Range("A:A"))

For i = 8 To sıra + 4
Sheets.Add
Application.ActiveSheet.Name = Sheets("Sayfa1").Range("D" & i)
ActiveSheet.Range("A1:C1").Select

With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.MergeCells = True
End With
With Selection.Font
.Name = "Arial Tur"
.FontStyle = "Kalın"
.Size = 10
.ColorIndex = 3
End With
ActiveCell.FormulaR1C1 = "MAAŞIN"



ActiveSheet.Range("D1:F1").Select

With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.MergeCells = True
End With
With Selection.Font
.Name = "Arial Tur"
.FontStyle = "Kalın"
.Size = 10
.ColorIndex = 3
End With
ActiveCell.FormulaR1C1 = "ÖDEMENİN"



ActiveSheet.Range("A2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

End With
With Selection.Font
.Name = "Arial Tur"
.FontStyle = "Kalın"
.Size = 10
.ColorIndex = 3
End With
ActiveCell.FormulaR1C1 = "AY"



ActiveSheet.Range("B2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

End With
With Selection.Font
.Name = "Arial Tur"
.FontStyle = "Kalın"
.Size = 10
.ColorIndex = 3
End With
ActiveCell.FormulaR1C1 = "YIL"




ActiveSheet.Range("C2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

End With
With Selection.Font
.Name = "Arial Tur"
.FontStyle = "Kalın"
.Size = 10
.ColorIndex = 3
End With
ActiveCell.FormulaR1C1 = "TUTARI"




ActiveSheet.Range("D2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

End With
With Selection.Font
.Name = "Arial Tur"
.FontStyle = "Kalın"
.Size = 10
.ColorIndex = 3
End With
ActiveCell.FormulaR1C1 = "TARİHİ"



ActiveSheet.Range("E2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

End With
With Selection.Font
.Name = "Arial Tur"
.FontStyle = "Kalın"
.Size = 10
.ColorIndex = 3
End With
ActiveCell.FormulaR1C1 = "KASA NO"


ActiveSheet.Range("F2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

End With
With Selection.Font
.Name = "Arial Tur"
.FontStyle = "Kalın"
.Size = 10
.ColorIndex = 3
End With
ActiveCell.FormulaR1C1 = "TUTARI"




ActiveSheet.Range("G2").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

End With
With Selection.Font
.Name = "Arial Tur"
.FontStyle = "Kalın"
.Size = 10
.ColorIndex = 3
End With
ActiveCell.FormulaR1C1 = "TOPLAM"



ActiveSheet.Range("D4") = Sheets("Sayfa1").Range("A" & i)
Range("D4").NumberFormat = "m/d/yyyy"

ActiveSheet.Range("E4") = Sheets("Sayfa1").Range("B" & i)
Range("E4").NumberFormat = "0"

ActiveSheet.Range("F4") = Sheets("Sayfa1").Range("G" & i)
Range("F4").NumberFormat = "_($* #,##0_);_($* (#,##0);_($* ""-""_);_(@_)"



Next

End Sub

 

[cairotaner]

sayın bedersu,
çok teşekkür ederim.bu kendi çapımda hazırlamaya çalıştığım projenin bir parçasıydı.bu kodları diğerleri ile birlikte revize ettikten sonra sanırım projem bitecek.eğer yapamadığım yer olursa sizden ve forumdaki diğer arkadaşlardan yardım istemek için tekrar burada olacağım.tekrar çok teşekkür ederim.

 

[bedersu]

Bütün arkadaşlar gibi ben de elimden geldiğince yardıma hazırım çünkü ben de bu şekilde yardım ala ala belli bir seviyeye çıkabildim.Kolay gelsin,Allah yardımcınız olsun.