Skip to main content

AccessTr.neT


Vba İndis Kısaltma

Vba İndis Kısaltma

Çözüldü #1
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim s1 As Worksheet
Dim s2 As Worksheet
Set s1 = Sheets("Okul")
Set s2 = Sheets("İlçe")
s2.Range("G9") = WorksheetFunction.VLookup(s2.Range("B9"), s1.Range("B9:h54"), 4, 0)
s2.Range("H9") = WorksheetFunction.VLookup(s2.Range("B9"), s1.Range("B9:h54"), 5, 0)
s2.Range("G10") = WorksheetFunction.VLookup(s2.Range("B10"), s1.Range("B9:h54"), 4, 0)
s2.Range("H10") = WorksheetFunction.VLookup(s2.Range("B10"), s1.Range("B9:h54"), 5, 0)
s2.Range("G11") = WorksheetFunction.VLookup(s2.Range("B11"), s1.Range("B9:h54"), 4, 0)
s2.Range("H11") = WorksheetFunction.VLookup(s2.Range("B11"), s1.Range("B9:h54"), 5, 0)

End Sub

Ustam ben bildiğim şekilde yaptım ama bayağı uzun bir iş oldu.

dosya ekte gönderilmiştir. İlçe sayfasında B9:B54 arasında bir hücreye tıklayınca Okul sayfasında ki bilgileri getiriyor.

Bu kodu en kısa şekli ile düğmeye bağlamak istiyorum. Yardımcı olabilir misiniz?
.zip sen.zip (Dosya Boyutu: 28,62 KB | İndirme Sayısı: 2)
malatyalı, 31-01-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Vba İndis Kısaltma - Yazar: malatyalı - 04/05/2021, 13:26
RE: Vba İndis Kısaltma - Yazar: berduş - 04/05/2021, 14:23
RE: Vba İndis Kısaltma - Yazar: malatyalı - 04/05/2021, 15:10
RE: Vba İndis Kısaltma - Yazar: berduş - 04/05/2021, 15:24
RE: Vba İndis Kısaltma - Yazar: malatyalı - 04/05/2021, 15:33
RE: Vba İndis Kısaltma - Yazar: berduş - 04/05/2021, 15:38
RE: Vba İndis Kısaltma - Yazar: malatyalı - 04/05/2021, 15:40
RE: Vba İndis Kısaltma - Yazar: berduş - 04/05/2021, 16:19