İSİM ARAMA

[mavi674]

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)

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

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

 

[Mdemir63]

Selamlar

Dosyanız

 

[mavi674]

Teşekkürler,
hatamı şimdi anladım...

 

[Mdemir63]

Rica ederim.
İyi çalışmalar