Selamlar;
Çalışan bir makro vardı,
bu macroyu başka bir sayfaya uyarladım ama bir türlü çalıştıramadım.
bugün bütün günümü bununla uğraştım ama sonuç olumsuz.
Örnek dosyada;
bul sayfası güzel çalışıyor, Arama butonuna her tıklamada isim buluyor
ama bul2 sayfasına uyarlamaya çalıştığım aynı macro burada çalışmadı
(ilk tıklamada arama yapıyor ama diğer tıklamalarda arama yapmıyor)
www.dosya.tc
Çalışan bir makro vardı,
bu macroyu başka bir sayfaya uyarladım ama bir türlü çalıştıramadım.
bugün bütün günümü bununla uğraştım ama sonuç olumsuz.
Örnek dosyada;
bul sayfası güzel çalışıyor, Arama butonuna her tıklamada isim buluyor
ama bul2 sayfasına uyarlamaya çalıştığım aynı macro burada çalışmadı
(ilk tıklamada arama yapıyor ama diğer tıklamalarda arama yapmıyor)
ISIM_ARAMA.xlsm dosyasını indir - download
ISIM_ARAMA.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle
www.dosya.tc
Kod:
Sub isimbul3()
Dim sat As Long
Dim isim As String
On Error GoTo atla
If IsEmpty(sonBulunanSatir) Then
sonBulunanSatir = 0
End If
isim = Range("D2").Value
sat = WorksheetFunction.Match(isim, Range("E" & sonBulunanSatir + 1 & ":E" & Rows.Count), 0) + sonBulunanSatir
Range("C5") = sat & "-SATIRDA"
'Range("I5") = sonBulunanSatir
say = Range("G" & sat)
Range("B5") = say & ".NCİ KİŞİ"
'BULUNAN KİŞİ SIRANO VERMEK
Range("C" & sat) = say
'Sheets("" & Sheets(A1sayfa).[b12] & "").Range("" & Sheets(A1sayfa).[c16] & "") = say
Range("C" & sat).Select
sonBulunanSatir = sat
Exit Sub
atla:
MsgBox "BAŞKA İSİM YOK"
sonBulunanSatir = 0
End Sub