Skip to main content

AccessTr.neT


Range Ve Worksheets Kullanımları Hakkında

Oğuz Türkyılmaz
Oğuz Türkyılmaz
11
1106

Range Ve Worksheets Kullanımları Hakkında

Çözüldü #1
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

Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
ThisWorkbook.Sheets("LOKASYON").Activate
ActiveSheet.Range(Cells(1, 8), Cells(3, 2)).Select
şeklinde dener misiniz?
Cevapla
#3
@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]
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#4
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
Cevapla
#5
Birde union var.
Union(range("a:a"),range("c:c").select gibi belki yanlışlık yapmış olabilirim , ve ; yerinde.
Cevapla
#6
@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")
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 14/05/2021, 19:38, Düzenleyen: Oğuz Türkyılmaz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task