Birsonraki değeri seçme

[drummers]

Sub damgavergisiyazdir()

Sheets("damga vergisi beyannamesi man").Range("A1:CB46").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$CB$46"
ActiveWindow.SelectedSheets.PrintOut Copies:=2
ActiveSheet.PageSetup.PrintArea = ""

Sheets("damga vergisi beyannamesi man").Range("A47:CB93").Select
ActiveSheet.PageSetup.PrintArea = "$A$47:$CB$93"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveSheet.PageSetup.PrintArea = ""

Sheets("damga vergisi beyannamesi man").Range("W9").Select

End Sub

Bu kod ile yazdırma işlemi yaptırıyorum.
"W9" alanım Veri > Doğrulama > Liste olarak tanımlı ve firma isimleri bu alan geliyor. Yazdır dedikten sonra "W9" alanındaki firmanın 1 alta geçmesini nasıl sağlarım.
Teşekkürler

 

[Ömer]

Merhaba,

Sanırım W9 daki değerin W10 a kopyalanmasını istiyorsunuz.
Kodun devamına ekleyiniz.

Sheets("damga vergisi beyannamesi man").Range("W9").Copy Sheets("damga vergisi beyannamesi man").Range("W10")

.

 

[drummers]

Merhaba,

Sanırım W9 daki değerin W10 a kopyalanmasını istiyorsunuz.
Kodun devamına ekleyiniz.

Sheets("damga vergisi beyannamesi man").Range("W9").Copy Sheets("damga vergisi beyannamesi man").Range("W10")

.

W9 da açılan listenin içindeki firmanın 1 alta inmesini istemekteyim.

 

[Ömer]

W9 da açılan listenin içindeki firmanın 1 alta inmesini istemekteyim.

Sheets("damga vergisi beyannamesi man").Range("W10") = Sheets("damga vergisi beyannamesi man").Range("W9")

Bu şekilde deneyin.