Skip to main content

AccessTr.neT


Range Ve Worksheets Kullanımları Hakkında

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

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
Visual Basic Code
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
Visual Basic Code
Application.Goto ThisWorkbook.Sheets("LOKASYON").Range("B3:D7,D9:f11,g7,s5:t7")
sürekli aralık için
Visual Basic Code
Application.Goto ThisWorkbook.Sheets("LOKASYON").Range(Cells(1, 8), Cells(3, 2))
2 -
Visual Basic Code
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
Visual Basic Code
ActiveSheet.Range("B3:D7,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