[]
Excel Profesörleri!
Beyler,
Yapmak istediğim şu; elimde bir veri var. 550 satır, 4 sütun halinde.
Bu sütunları a-b-c-d olarak ayırdım. hepsi birer data set, satır satır.
Diğer bir sheettte ise bir form var. formdaki boşluklara da a b c d isimlerini verdik diyelim. Her bir satırdaki datayı bu abcd eşlemesine uyarak forma yazdırıp, teker teker basarak 550 adet form elde etmek istiyorum. Yani excel kendisi yazsın teker teker, kendisi bassın 550 satır için 550 form. Nasıl yaparız? Makro bilgim çok çok az maalesef..
Yapmak istediğim şu; elimde bir veri var. 550 satır, 4 sütun halinde.
Bu sütunları a-b-c-d olarak ayırdım. hepsi birer data set, satır satır.
Diğer bir sheettte ise bir form var. formdaki boşluklara da a b c d isimlerini verdik diyelim. Her bir satırdaki datayı bu abcd eşlemesine uyarak forma yazdırıp, teker teker basarak 550 adet form elde etmek istiyorum. Yani excel kendisi yazsın teker teker, kendisi bassın 550 satır için 550 form. Nasıl yaparız? Makro bilgim çok çok az maalesef..
Mesaj attım.
- cakabo
(11.12.12 11:45:19)
excelde profesör değilim, sadece asistanım:
şöyle bir koddan yararlanabilirsin. bende çalışıyor ama belki ufak düzeltmeler gerekebilir..
ALT + F11 ile vba dersleyicisini aç.
Ardından thisworkbook yazan yere çift tıklayıp aşağıdaki kodu oraya yapıştır.
'500 verin sheet1'de olsun.
sub yazici()
for i=1 to 500
sheet2.cells(x,a) = sheet1.cells(i,a) ' yani a değerlerini formda yazdıracağın hücrenin adresi - a değeri, a sütununun temsil eden sütun numarası- b,c, d'yi de benzer şekilde eklersin.
Sheet2.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
next i
end sub
şöyle bir koddan yararlanabilirsin. bende çalışıyor ama belki ufak düzeltmeler gerekebilir..
ALT + F11 ile vba dersleyicisini aç.
Ardından thisworkbook yazan yere çift tıklayıp aşağıdaki kodu oraya yapıştır.
'500 verin sheet1'de olsun.
sub yazici()
for i=1 to 500
sheet2.cells(x,a) = sheet1.cells(i,a) ' yani a değerlerini formda yazdıracağın hücrenin adresi - a değeri, a sütununun temsil eden sütun numarası- b,c, d'yi de benzer şekilde eklersin.
Sheet2.Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
next i
end sub
- puc
(11.12.12 11:49:52)
yanlış anlamadıysam makro kullanmadan da şu şekilde yapabilirsin:
1. diğer sheet'te boşlukları olan formu word'e al
2. "mailmerge" uygula
3. data sorunca excel dosyasını göster
1. diğer sheet'te boşlukları olan formu word'e al
2. "mailmerge" uygula
3. data sorunca excel dosyasını göster
- desdinova (11.12.12 12:38:02)
1
