inputbox hakkında

[bravo64]

tekrar merhaba,
Range("a4:a136,b4:b136,f4:f136 , d4:d136 , k4:k136 , g4:g136,h4:h136,m4:m136").Copy bu kod problemsiz çalışıyorda acaba 136 değerini inputbox ile verirsem yazılım nasıl olabilir..Yani c=inputbox daki veri sonucunda c'yi nasıl yerleştirmeliyim formule..c=136 138 yada 140 olabilir... ( "a4:a&c&" .....)gibi çeşitli şekillerde yapmaya çalıştım ama olmadı)
teşekkür ederim..

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[vb:1:1bf458675a]c = InputBox("ALT LİMİTİ GİRİNİZ")
If c = cancel Then Exit Sub
adr = "a4:b" & c & ",d4:d" & c & ",f4:h" & c & ",k4:k" & c & ",m4:m" & c
Range(adr).Copy
[/vb:1:1bf458675a]

 

[bravo64]

sevgili Leventm,çok teşekkür ederim elinize sağlık..tam istediğim gibi..
iyilikler dilerim..