İki kod satırını, tek satırda birleştirme

[EKREM1661]

Arkadaşlar..! Örneğin, aşağıdaki iki satır kodu tek satıra nasıl alırız..

Sheets("Sayfa1").Select
Range("B11").Select

 

[isteobenim]

Sheets("Sayfa1").Range("B11").Select

 

[EKREM1661]

Bende böyle yaptım, ama neden hata veriyor.. Herhalde başka bir şeyden kaynaklanıyordur..

 

[Huseyinkis]

Bende böyle yaptım, ama neden hata veriyor.. Herhalde başka bir şeyden kaynaklanıyordur..

Hata vermesi normaldir. Select komutunu kullandığınız için kaynaklanıyor.

Sayfa1.select yapmadan sayfa1.B11 hücresini seç diyorsunuz buda eğer kodun kullanışını doğru biliyorsam mausla sayfa2 de iken sayfa1 e geçmeden sayfa1.B11 hücresini seçmeye çalışmak gibi olur. değer almalarda problem yaratmaz sayfa1.b11 value deseydiniz =Sayfa1!'B11 gibi olacaktı bunu sayfa2 den yapabilirdik.

 

[EKREM1661]

Evet.. Sn. Huseyinkis..! dediğiniz gibi, aynı sayfada sorun yok da, farklı sayfada iken yapıyor.. Neyse ki onu da öğrenmiş olduk.. (Aslında bu konuyu bir sorun olduğu için değil de, satır sayısını azaltayım derken, hata verme olayını merak ettiğim için di..)