Makro ile seçilen hücrenin sağındaki hücreye otomatik veri girmek.

[Eur0nym0s]

Merhaba arkadaşlar.
elimdeki tabloda birden fazla sütunda çok miktarda aynı formatta veri var. bu verilerin bazıları yanlış. yanlış olan kayıtlar liste halinde gönderildi.
ana listedeki verinin yanına Yanlış yazıcam.
alttaki fonksiyon ile seçimi yaptırıyorum. seçim yaptırdığım hücrenin sağındaki hücreye Yanlış değeri girmek istiyorum.
yardımlarınızı bekliyorum.

Private Sub CommandButton1_Click()
For i = 2 To 1000
HucreSgk = "BB" & Trim(Str(i))
Sgk = Range(HucreSgk)

Set Aranan = Cells.Find(Sgk)
adres = Aranan.Address
MsgBox (adres)
Next i
End Sub


Düşey ara ile uğraşmak istemiyorum.
fonksiyonu bir kez hazırlayıp sürekli kullanmak istiyorum.

 

[ÖmerBey]

Merhaba,
Foruma hoşgeldiniz...
Aşağıdaki satırı kodunuza ilave ediniz.

Aranan.Offset(0, 1) = "YANLIŞ"

 

[Eur0nym0s]

Eyvallah Hocam teşekkürler.


Private Sub CommandButton1_Click()

For i = 2 To 73
HucreSgk = "BF" & Trim(Str(i))
Sgk = Range(HucreSgk)
Set Aranan = Cells.Find(Sgk)
adres = Aranan.Address
Aranan.Offset(0, 1) = "YANLIŞ"
For j = 1 To 5
Set Aranan = Cells.FindNext(Aranan)
adres2 = Aranan.Address
If adres2 = adres Then
Exit For
End If
Aranan.Offset(0, 1) = "YANLIŞ"
Next j
Next i


End Sub


kod çalıştı. şimdi tüm listeye uygulamak kaldı.