Skip to main content

AccessTr.neT


Makro Veya Kod Nasıl Oluştururum

Makro Veya Kod Nasıl Oluştururum

#13
Diğer açtığınız konuyu buraya taşıdım örnek dosyayı.10-Ekim adındaki dosya soru dosyası.
Diğer konu mükerrer olduğu için silinmiştir.
E1 sayfasında E1 den itibaren girilen verilere göre arama yapılıp veriler gelir.

Çözümlerde eklerde.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim bul As Range
   
    With ThisWorkbook.Sheets("T1")
        If Target.Column = 5 And Target.Row >= 3 Then
            If Target.Cells.Count = 1 Then
                Set bul = .Range("E:E").Find(Target.Value, , , 1)
                Target.Offset(, 1).Value = Empty
                If Not bul Is Nothing Then Target.Offset(, 1).Value = bul.Offset(, 1).Value
            End If
        End If
    End With
    Set bul = Nothing
End Sub

Buda dictionary yöntemi ile.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dict As Object, veri(), i As Long
   
    Set dict = CreateObject("Scripting.dictionary")
    dict.comparemode = 1 '1 kücük büyük harf icin
   
    With ThisWorkbook.Sheets("T1")
        veri = .Range("E1:F" & .Range("E" & Rows.Count).End(3).Row).Value
        If Target.Column = 5 And Target.Row >= 3 Then
            If Target.Cells.Count = 1 Then
                For i = LBound(veri) To UBound(veri)
                    If Not dict.exists(veri(i, 1)) Then dict.Add veri(i, 1), veri(i, 2)
                Next
                Target.Offset(0, 1).Value = dict(Target.Value)
            End If
        End If
    End With
    Set dict = Nothing: Erase veri
End Sub
.rar 10-Ekim.rar (Dosya Boyutu: 10,09 KB | İndirme Sayısı: 1)
.rar 10-Ekim Dictionary ile.rar (Dosya Boyutu: 17,47 KB | İndirme Sayısı: 1)
.rar 10-Ekim Find ile.rar (Dosya Boyutu: 16,91 KB | İndirme Sayısı: 1)
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
Makro Veya Kod Nasıl Oluştururum - Yazar: HORZUM - 16/10/2020, 13:17
RE: Makro Veya Kod Nasıl Oluştururum - Yazar: berduş - 16/10/2020, 16:06
RE: Makro Veya Kod Nasıl Oluştururum - Yazar: HORZUM - 16/10/2020, 16:35
RE: Makro Veya Kod Nasıl Oluştururum - Yazar: berduş - 16/10/2020, 16:37
RE: Makro Veya Kod Nasıl Oluştururum - Yazar: berduş - 16/10/2020, 16:49
RE: Makro Veya Kod Nasıl Oluştururum - Yazar: HORZUM - 18/10/2020, 10:22
RE: Makro Veya Kod Nasıl Oluştururum - Yazar: feraz - 16/10/2020, 17:40
RE: Makro Veya Kod Nasıl Oluştururum - Yazar: feraz - 16/10/2020, 17:47
RE: Makro Veya Kod Nasıl Oluştururum - Yazar: feraz - 18/10/2020, 11:36
RE: Makro Veya Kod Nasıl Oluştururum - Yazar: HORZUM - 19/10/2020, 09:12
RE: Makro Veya Kod Nasıl Oluştururum - Yazar: feraz - 19/10/2020, 09:23
RE: Makro Veya Kod Nasıl Oluştururum - Yazar: feraz - 19/10/2020, 09:45
RE: Makro Veya Kod Nasıl Oluştururum - Yazar: feraz - 19/10/2020, 12:38
RE: Makro Veya Kod Nasıl Oluştururum - Yazar: HORZUM - 19/10/2020, 12:51
RE: Makro Veya Kod Nasıl Oluştururum - Yazar: feraz - 19/10/2020, 13:11
Task