hücre aralik tanımlamasi

[bravo64]

Merhaba
sheets("index").range("c2:g2").copy tan1m1nda,c ve g'nin deerlerini
inputbox içinde girilecek degere göre atayacak kod nas1l yazabilirim..
Te_ekkürler

 

[bravo64]

aç1klama;c ve g diyelimki c2:g2,c3:g3 yada inputboxdaki say1ya göre örnein inputbox=5 ise c5:g5 olacak sekilde ...

 

[danersin]

Bu şekilde bir deneyin;

Sub dene()
c = InputBox("ilk sütun")
g = InputBox("ikinci sütun")
Sheets("index").Range(c & "2:" & g & "2").Copy
End Sub

 

[danersin]

pardon ben burada sütunları değiştirmek üzere yaptım, satırlar içinde aynı mantıkla

Sub dene()
c = InputBox("ilk satır")
g = InputBox("ikinci satır")
Sheets("index").Range("c" & c & ":g" & g).Copy
End Sub

 

[bravo64]

çok te_ekkür ederim..basar1l1 oldu kod..
Ba_ka bir sorum var umar1m yuk olmam size;
2 ayri bilgisayarim var..office2000 yüklü.officexp ayrica.Fakat baz1 kodlar diger bilgisayarda compile error ve debug yaptigimda cant find project veriyor.Ayni kod network baglantida olan diger bilgisayarda böyle cevap veriyor..Acaba neden..
error veren bilgisayardaki excel dosya sürümü 10.0.6501.0(belki yard1mc1 olur)
iyilikler diliyorum..