Loop "dongu" yazdirma?

[rammlied]

Merhabalar,

Makbuz duzenlemek istiyorum. Duzenlerken manual olarak elimle degerleri degistirip her defasinda print out yapmak zorunda kaliyorum. Makbuz sayfasindaki degerler bir onceki sayfaya linkli ve puantajlari ve diger bilgileri oradan cekiyor.

Makbuz sayfasini manual olarak degistirmek yerine automatik olarak loop "dongu" kurarak 1'den 100'e kadar ya da 1000'e kadar degerleri onceki sayfadan cekecek ve yazacak. Bunu tek bir comment nasil yapabilirim?

Selamlar Sevgiler

 

[rammlied]

Macro ile bu islemi yapabilirim sanirim. Yardimci olursaniz simdiden tsk ederim.

Selamlar

 

[Huseyinkis]

Sub Makro1()

a = Range("a1").Value

For i = 1 To 100
a = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub

 

[rammlied]

Sub Makro1()

a = Range("a1").Value

For i = 1 To 100
a = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub

Ustad cok tskler yalniz su sekilde bir sorun oldu. Cell'in icersindeki deger su sekilde =+Sheet1!A1 bunu A1'den A100'e kadar gordermek istiyorum. Bunun icin macroda nasil bir degisiklik yapmam gerek? Ve =+Sheet1!A1 bulunan cellin adi A2 sheet adi sheet2. bunlarida belirtmek gerekecek sanirim macro code icine.

 

[rammlied]

Arkadaslar merhabalar;
Bana gelen cevap su sekildedir.


Huseyinkis bey tarafından gönderildi

Sub Makro1()

a = Range("a1").Value

For i = 1 To 100
a = i
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Next
End Sub

yalniz benim eklemek istedigim macro icine bir iki degisiklik daha var. Cell'in icersindeki deger su sekilde =+Sheet1!A1

Bunu =+Sheet!A1'den =+Sheet!A100'e kadar gordermek istiyorum. Bunun icin macroda nasil bir degisiklik yapmam gerek? Ve =+Sheet1!A1 bulunan cellin adi A2 sheet adi sheet2. bunlarida belirtmek gerekecek sanirim macro code icine.

Ve diger sorum ayni sekilde A2 cellinin icersindeki =+Sheet!B1'i de degisip B100'e kadar gondermek istersem nasil bir ekleme yapmam gerekir?

Not: Degisen celler ayni anda olacak ve print yapacak.

Tskler simdiden