AccessTr.neT

AccessTr.neT > Microsoft Excel > Excel Cevaplanmış Soruları > Range Ve Worksheets Kullanımları Hakkında
Tam Versiyon: Range Ve Worksheets Kullanımları Hakkında
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2

Oğuz Türkyılmaz

14/05/2021, 00:25
Herkese iyi bayramlar.

Aşağıda 1.satırdaki kod ile aktif Excel sayfasında satır ve sütun koordinatlarını vererek belirli bir alanı seçebiliyorum. Fakat aynı işlemi aktif olmayan lokasyon sayfasında gerçekleştiremedim. Yani aktif olmayan Excel sayfasında belirli bir alanı nasıl seçebilirim. Kodu nasıl revize etmeliyim. Teşekkürler.

Kod:
Sub kordinat()

     Range(Cells(1, 8), Cells(3, 2)).Select

         'Worksheets("LOKASYON").Range("B3:D9").Select

         'Worksheets("LOKASYON").Cells(3, 9).Select

End Sub

berduş

14/05/2021, 00:54
ThisWorkbook.Sheets("LOKASYON").Activate

ActiveSheet.Range(Cells(1, 8), Cells(3, 2)).Select
şeklinde dener misiniz?

Oğuz Türkyılmaz

14/05/2021, 09:47
@berduş hocam teşekkür ederim bu konuda 2 sorum olacak.

1- Bu kodu tek satırda yazmanın yolu var mı?
2- Hücre aralıklarını değilde sadece 2 hücreyi nasıl seçtirebilirim. resimdeki c3 ve h1 gibi.

[Resim: do.php?img=11035]

berduş

14/05/2021, 11:58
1 - tek satırlık kod
kesikli aralıklar için
Application.Goto ThisWorkbook.Sheets("LOKASYON").Range("B3Lol7,D9:f11,g7,s5:t7")
sürekli aralık için
Application.Goto ThisWorkbook.Sheets("LOKASYON").Range(Cells(1, 8), Cells(3, 2))
2 - 
ThisWorkbook.Sheets("LOKASYON").Activate

ActiveSheet.Range("c3,h1").Select
hatta bir kaç farklı aralık yada bağımsız hücre seçmek için : ve , kombinasyonları kullanabilirsiniz
ActiveSheet.Range("B3Lol7,D9:f11,g7,s5:t7").Select

feraz

14/05/2021, 16:13
Birde union var.
Union(range("a:a"),range("c:c").select gibi belki yanlışlık yapmış olabilirim , ve ; yerinde.

Oğuz Türkyılmaz

14/05/2021, 19:26
@berduş ve  @feraz hocalarım teşekkürler.
Aşağıdaki kodda hücrelere değer atamak nasıl mümkün olur.
.value = değer yazdığımda hata veriyor. (Tüm Hücrelere aynı değeri vereceğim)
Kod:
Application.Goto ThisWorkbook.Sheets("LOKASYON").Range("B3:D7,D9:f11,g7,s5:t7")
Sayfalar: 1 2
AccessTr.neT > Microsoft Excel > Excel Cevaplanmış Soruları > Range Ve Worksheets Kullanımları Hakkında