düşey ara makro son satır

[oydemir]

aşağıdaki formülü kullanmaktayım 550 satırı geçmekte makro kullanmak istiyorum ne yapmam gerekir.
=EĞERHATA(EĞER(O26>0.1;EĞER(DÜŞEYARA(A2;KAYIT!A:A;1;0)=A1;KAYIT!A:A;"Kayıt Var");"");"Kayıt Yok")

 

[mahmyt]

vba da yeni module sayfası açarak aşağıdaki kodu ekleyip kontrol edebilir misiniz
Sub UpdateFormulas()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("KAYIT")

Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

Dim i As Long
For i = 2 To lastRow
If ws.Cells(i, "O").Value > 0.1 Then
If Application.VLookup(ws.Cells(i, "A").Value, ws.Range("A:A"), 1, False) = ws.Cells(1, "A").Value Then
ws.Cells(i, "O").Value = "Kayıt Var"
Else
ws.Cells(i, "O").Value = ""
End If
Else
ws.Cells(i, "O").Value = "Kayıt Yok"
End If
Next i
End Sub

 

[oydemir]

teşekkürler elinize sağlık ama kendimi yanlış ifade ettim gibi

Örnek dosya ekledim

 

[oydemir]

bu formülü kayıt sayfasında b26 hücresinden başlayarak kullanıyorum
=EĞERHATA(EĞER(O26>0.1;EĞER(DÜŞEYARA(A2;KAYIT!A:A;1;0)=A1;KAYIT!A:A;"Kayıt Var");"");"Kayıt Yok")

 

[mahmyt]

hem koda hemde sayfadaki şu nota baktım da

O26 DOLU İSE T.KAYIT SAYFASINDA ARAYAÇAK VARSA KAYIT VAR YOKSA KAYIT YOK

ben tam anlayamadım kusura bakmayın tam olarak neyi nerede aratmak istiyorsunuz

 

[oydemir]

teşekkürler
kayıt sayfasında O:O satırı dolu ise kayıt sayfasında a:A deki değeri t_kayıt sayfasında a:a arayacak varsa kayıt var yok ise kayıt yok diyecek

 

[mahmyt]

Sub KayitKontrol()
Dim kayitSayfasi As Worksheet
Dim tKayitSayfasi As Worksheet
Dim arananDeger As String
Dim sonuc As Range
Dim oSutunu As Range

Range("B:B").Clear

Set kayitSayfasi = ThisWorkbook.Sheets("KAYIT")
Set tKayitSayfasi = ThisWorkbook.Sheets("T_KAYIT")

For Each oSutunu In kayitSayfasi.Range("O:O")
If oSutunu.Value <> "" Then
arananDeger = oSutunu.Offset(0, -14).Value
Set sonuc = tKayitSayfasi.Columns("A:A").Find(arananDeger, LookIn:=xlValues, LookAt:=xlWhole)
If sonuc Is Nothing Then
oSutunu.Offset(0, -13).Value = "Kayıt yok"
Else
' Eğer aynı satırdaki a sütununda veri varsa
If Not IsEmpty(tKayitSayfasi.Cells(sonuc.Row, "A")) Then
oSutunu.Offset(0, -13).Value = "Kayıt var"
Else
oSutunu.Offset(0, -13).Value = "Kayıt Yok"
End If
End If
End If
Next oSutunu
End Sub

 

[mahmyt]

veri getir butonuna tıkladığınızda b ye istediğiniz şekilde geliyordur umarım ayrıca başlıktan dolayı o sütunu dolu a sütunu boş ona göre düzenledim

 

[oydemir]

Teşekkürler elinize sağlık deneme şansım şuan yok deneme yapınca haber ederim

 

[oydemir]

elinize saglık istediğim gibi teşekkürler