Makro bul-yapıştır

[pckatil]

Arkadaşlar ekteki macroyu sürekli tekrarlatmak istiyorum. ama olmuyor ne yaptıysam... Bide bunu sadece b sütünuna uygulata bilirmiyiz? Yardım edermisiniz.

 

[uzmanamele]

merhaba
daha çabuk ve net cevap alabilmeniz için sorunuzu örnek dosya ile destekleyiniz.

 

[pckatil]

yardımcı olabilecek kimse yokmu...

 

[Kemal Demir]

Merhaba,

Aşagıdaki kodu denermısınız.İşlem uzun sürebilir.

Sub Bulyaz()
Dim a, b, c, d, x As Integer
a = 10000
b = 10051
c = 9746546
d = 5844654
For x = 2 To [b65536].End(3).Row
If Cells(x, 2) = a Or Cells(x, 2) = b Or Cells(x, 2) = c Or Cells(x, 2) = d Then
Cells(x, 13) = "istediğin tarihi yaz"
End If
Next
End Sub

yada

Sub Bulyaz()
Dim a, b, c, d, x As Integer
a = 10000
b = 10051
c = 9746546
d = 5844654
For x = 2 To [b65536].End(3).Row
If Cells(x, 2) = a Then
Cells(x, 13) = "istediğin tarihi yaz"
End If
If Cells(x, 2) = b Then
Cells(x, 13) = "istediğin tarihi yaz"
End If
If Cells(x, 2) = c Then
Cells(x, 13) = "istediğin tarihi yaz"
End If
If Cells(x, 2) = d Then
Cells(x, 13) = "istediğin tarihi yaz"
End If

Next
End Sub

Şunuda söyleyebilirim.
Bu işlemi Vlookup ile yapmanız daha basit olur.

NOT:Kısa zamanda doğru çözüme ulaşabilmeniz için sorunuzu örnek dosya ile destekleyiniz.

 

[pckatil]

kusura bakmayın daha acemiyim vlookup nasıl oluyor...

Bide bu yardımınız için çok teşekkür ederim...

 

[Kemal Demir]

Lutfen forumu inceleyiniz.

 

[pckatil]

Option Explicit

Sub BUL_İŞARET_EKLE()
Dim Sayfa As Worksheet, Aranan_Veri As Variant
Dim Bul As Range, Adres As String

Aranan_Veri = Application.InputBox("Lütfen aramak istediğiniz veriyi giriniz !", "ARANAN VERİ")

If Aranan_Veri = False Then
MsgBox "Arama işlemi iptal edilmiştir.", vbInformation
Exit Sub
End If

If Aranan_Veri = "" Then
MsgBox "Lütfen aramak istediğiniz veriyi giriniz !", vbExclamation
Exit Sub
End If

For Each Sayfa In Worksheets
Set Bul = Sayfa.Cells.Find(Aranan_Veri, LookAt:=xlWhole)
If Not Bul Is Nothing Then
Adres = Bul.Address
Do
Sayfa.Range(Adres).Offset(0, 11) = "21.03.2009"
Set Bul = Sayfa.Cells.FindNext(Bul)
Loop While Not Bul Is Nothing And Bul.Address <> Adres
End If
Next

MsgBox "İşleminiz tamamlanmıştır.", vbInformation

End Sub

Böle Bişey yaptm ama bunun sürekli tekrarlanmasını istiyorum nasıl olucak...

 

[pckatil]

yardım arkadaşlar lütfen...

 

[pckatil]

bir allahın kulu yokmu çözümü sölicek?

 

[zafer]

Merhaba

Böle Bişey yaptm ama bunun sürekli tekrarlanmasını istiyorum nasıl olucak...

Sürekli tekrarlamaktan kastınız nedir.Açıklarmısınız.