Merhaba elimde aşağıda ki gibi bir kod var bu kod excel de bir hücrede ki sayının sonuna istenilen sayıyı yine istenilen miktarda sayıyı sırasıyla yazıcıdan çıktısını almaya yarıyor,



Yani macroyu çalıştırdığımda cursor hangi hücredeyse o hücreye kaçtan kaça kadar yazdırmak istiyorsak yazdırabiliyorum,

Gelelim benim soruma; aşağıda ki kod tek bir hücrede geçerli yani bir hücrede istenilen sayıyı arttırarak yazıyor ben bu işlemi 4 hücrede yapmak istiyorum ve aynı zamanda aynı 4 hücrede ki rakamları aynı şekilde arttırarak yazdıracak bir kod istiyorum

mesela " kaçtan başlasın " inputboxı açıldığında 200 " Kaça Kadar " inputboxı açıldındığında 250 yazıyoruz, tamam a tıkladığımızda 200 den 250 ye kadar sırasıyla yazıcıdan çıkıyor, fakat tek bir hücrede ben 4 hücrede aynı işlem tekrarlansın istiyorum nasıl yardımcı olursunuz,



Sub adetyaz()
bas = InputBox("Kaçtan başlasın ?")
son = InputBox("Kaça kadar ?")
r = ActiveCell.Row
c = ActiveCell.Column


For i = bas To son
a = Cells(r, c)
Cells(r, c) = Cells(r, c) & i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Cells(r, c) = a
Next i
End Sub


Teşekkürler

eğer yana yana hücrelerden ise
bu işlemi ActiveCell.Column değişkenini 4 kere artırarak
yaparsın
bu 4 hücre alt alta ise
ActiveCell.Row
4 kere arttırırsın

yani iç içe for döngüleri bu işi görür ama

bu visual basic for applications galba

ben hic excellde vb incelemedim

ama istersen içiçe for döngüsü buna benzerdir
'***********************************
for t=c to c+3
For i = bas To son
a = Cells(r, t)
Cells(r, t) = Cells(r, t) & i
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Cells(r, t) = a
Next i
next t
'*****************************************
'Bu yanyana yapar işlemi alt alta yapmak için t değişkenini r nin yerine koy
'for t=c to c+3 -> burdada cnin yerine r koy
' aktif hücre 1. işlemi görür
End Sub


eger hücreler bitişik değilse bunlarin aktif hücreye göreceli pozisyonuna göre kolon ve sıra numaralarını değiştirirsin. umarım faydası olmustur...

muratselim2007-06-14 20:12:24