Cari Adı, Vergi No, Tc No Sorgulama

Cari Adı, Vergi No, Tc No Sorgulama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Cari Adı, Vergi No, Tc No Sorgulama (/konu-cari-adi-vergi-no-tc-no-sorgulama.html)

Sayfalar: 1 2 3 4 5 6

Re: Cari Adı, Vergi No, Tc No Sorgulama - feraz - 26/10/2020

Alttakide hızlı çalışır abey.Abuda son örnek olsun Img-grin

Excel ile ilgili sorularınızı bekleriz Img-grin

Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)



    Dim satir As Long, sutun As Byte, aranan, hedefsutun As String



    If Not Intersect(Target, Range("B2:B1048576,F2:F1048576,R2:R1048576")) Is Nothing Then

        Select Case Target.Column

            Case 2: satir = Target.Row: sutun = Target.Column: aranan = Target.Value: hedefsutun = "B:B"

            Case 6: satir = Target.Row: sutun = Target.Column: aranan = Target.Value: hedefsutun = "i:i"

            Case 18: satir = Target.Row: sutun = Target.Column: aranan = Target.Value: hedefsutun = "H:H"

        End Select

        varmi sutun, hedefsutun, satir, aranan

    End If

End Sub



Function varmi(alan As Byte, aranansutun As String, satir As Long, aranan)

    Dim kacinci As Long

    If satir > 1 Then

        If Trim(Cells(satir, alan).Value) <> "" Then

            If Cells(satir, alan).Cells.Count = 1 Then

                On Error GoTo son

                kacinci = WorksheetFunction.Match(aranan, Sayfa2.Range(aranansutun), 0)

            End If

        End If

    End If

    

    If kacinci > 0 Then

        MsgBox "ilgili veri bulundu", vbCritical, "mükerrer"

        Application.EnableEvents = False

        Cells(satir, 1).Value = Sayfa2.Cells(kacinci, 1).Value

        Cells(satir, 6).Value = Sayfa2.Cells(kacinci, 9).Value

        Application.EnableEvents = True

    End If

son:

    On Error GoTo 0

    Set bul = Nothing

    Application.EnableEvents = True 'extra 2 defa yazildi

End Function

RE: Cari Adı, Vergi No, Tc No Sorgulama - feraz - 26/10/2020

(26/10/2020, 14:09)kanakan52 yazdı:
(26/10/2020, 13:54)feraz yazdı:
Seçim senin abey
Birde Match yani kaçıncı ilede alternatif var.
Birde onu yükleyeyim kod yazınca bari

Körün istediği bir göz misali, hocam coşturdun konuyu
Ne diyebilirim ki , paylaşırsanız sonucu iletirim..

Excelcileri zor buluyoruz abey bulmuşkende değerlendirmek gerek Img-grin

Pratik yapmış oluyorum Img-grin

RE: Cari Adı, Vergi No, Tc No Sorgulama - kanakan52 - 26/10/2020

(26/10/2020, 14:18)feraz yazdı:
(26/10/2020, 14:09)kanakan52 yazdı:
(26/10/2020, 13:54)feraz yazdı:
Seçim senin abey
Birde Match yani kaçıncı ilede alternatif var.
Birde onu yükleyeyim kod yazınca bari

Körün istediği bir göz misali, hocam coşturdun konuyu
Ne diyebilirim ki , paylaşırsanız sonucu iletirim..

Excelcileri zor buluyoruz abey bulmuşkende değerlendirmek gerek
Pratik yapmış oluyorum

Kesinlikle sık sık tekrar yapmak lazımmış, az biraz bilgim vardı pandemi süresince bakamadım uçtu gitti.