Otomatik Değer Değiştirme

[sefaburan]

Arkadaşlar Selamlar...

Bir excel kitabım var, bu sayfamdaki hazır belgeyi 2 tane yazdırmak istiyorum, ancak yazdırdığım ilk nüshadaki c1 hücresindeki değeri ikinci nüshada bir artırarak makro koduyyla yazdırmanın bir yolu var mı?

 

[Murat OSMA]

Yazma konudan sonra range("c1").value = range("c1").value + 1 yazın.

 

[sefaburan]

Yazma konudan sonra range("c1").value = range("c1").value + 1 yazın.

olmadı üstad

 

[sefaburan]

olmadı üstad

aslında oldu lakin ben bunu 5 nüsha çıkarmak istiyorum, 1. nüsha sorunsuz çıkıyor ikinci nüsha sorunsuz, 3. nüsha problemli çıkıyor.

Sub Yazdır_Gunluk_Devam()

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

Range("C3").Value = Range("C3").Value + 1
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

Range("C3").Value = Range("C3").Value + 2
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

Range("C3").Value = Range("C3").Value + 3
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

Range("C3").Value = Range("C3").Value + 4
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False


kodları böyle düzenledim kendimce, lakin 1,2 nüshalar sıkıntısız çıkıyor, 3. nüshada ikincideki değerden 2 fazla atıyor, diğerleri de aynı şekilde, sıkıntıyı çözemedim.
End Sub

 

[Murat OSMA]

Kodlarınıza dikkatlice bakarsaniz sıkıntıyı göreceksiniz.
Kodlarınıza bakarak mesajınızı tekrar okuyun.

 

[sefaburan]

Kodlarınıza dikkatlice bakarsaniz sıkıntıyı göreceksiniz.
Kodlarınıza bakarak mesajınızı tekrar okuyun.

Hocam çözemedim ki

 

[systran]

Algoritma dersi başlıyor, Dikkaaat!
İpucu: kodları çalıştırmadan, adım adım C3 hücresinin değerini kağıda yazınız.

 

[sefaburan]

Algoritma dersi başlıyor, Dikkaaat!
İpucu: kodları çalıştırmadan, adım adım C3 hücresinin değerini kağıda yazınız.

ya vallahi Çıkamadım içinden olayın. Bi yardım ALLAH aşkına

 

[Murat OSMA]

Yazma konudan sonra range("c1").value = range("c1").value + 1 yazın.

Tekrar yanit veriyorum. Yukarida söylediğim gibi yapın.

 

[sefaburan]

Tekrar yanit veriyorum. Yukarida söylediğim gibi yapın.

hocam bu tamam diğerleri de aynı zaten. lakin sıkıntı 3. nüshadan sonra başlıyor.

 

[merakli_72]

3.nüsha ve sonrası içinde değer arttırma kodunu aşağıdaki gibi yaznınız

range("c1").value = range("c1").value + 1

 

[systran]

3.nüsha ve sonrası içinde değer arttırma kodunu aşağıdaki gibi yaznınız

range("c1").value = range("c1").value + 1

numaran kaç, otur SIFIR arkadaşın sözlü oluyordu :cekic:

 

[merakli_72]

bazen insan gözünün önündekini görmeyebilir o anki psikolojisine bağlı
yardımcı olmak lazım

saygılarımla

 

[sefaburan]

bazen insan gözünün önündekini görmeyebilir o anki psikolojisine bağlı
yardımcı olmak lazım

saygılarımla

hakikaten de öyle yav. ALLAH razı olsun. küçük bir dikkatsizlik insanın sonunu getirebiliyor.