AccessTr.neTMicrosoft ExcelExcel Cevaplanmış Soruları

Range Ve Worksheets Kullanımları Hakkında

1 2
14/05/2021, 00:25

Oğuz Türkyılmaz

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
14/05/2021, 00:54

berduş

ThisWorkbook.Sheets("LOKASYON").Activate

ActiveSheet.Range(Cells(1, 8), Cells(3, 2)).Select
şeklinde dener misiniz?
14/05/2021, 09:47

Oğuz Türkyılmaz

@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.


14/05/2021, 11:58

berduş

1 - tek satırlık kod
kesikli aralıklar için
Application.Goto ThisWorkbook.Sheets("LOKASYON").Range("B3
 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("B3
14/05/2021, 16:13

feraz

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

Oğuz Türkyılmaz

@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")
1 2