Değiştir ve sil makrosu

[muhalko]

DEĞERLİ ÜSTADLAR;

KENDİMCE ŞÖYLE BİR DEĞİŞTİR MAKROSU YAPTIM HATA VERİYOR. KOD ŞU

Private Sub CommandButton2_Click()

Dim DEĞİŞTİR As Range, DÜZELT As String, No As Byte

If TextBox4 = "" Then
MsgBox "LÜTFEN FİRMA ADI GİRİNİZ!", vbCritical
TextBox4.SetFocus
Exit Sub
End If

No = 1

Set DEĞİŞTİR = Sheets("ZM").Range("B:B").Find(TextBox4)
If Not DEĞİŞTİR Is Nothing Then
DÜZELT = DEĞİŞTİR.Address
Do

DEĞİŞTİR.Offset(0, -1) = TextBox1
DEĞİŞTİR.Offset(0, 0) = TextBox2
DEĞİŞTİR.Offset(0, 1) = TextBox3

Set DEĞİŞTİR = Sheets("ZM").Range("B:B").FindNext(DEĞİŞTİR)
Loop While Not DEĞİŞTİR Is Nothing And DEĞİŞTİR.Address <> DÜZELT
MsgBox "DÜZELTME YAPILDI"

Else

MsgBox "ARADIĞINIZ FİRMA DEĞİŞTİRUNAMADI !", vbCritical

End If

Set DEĞİŞTİR = Nothing
End Sub


YARDIMCI OLURSANIZ ÇOK SEVİNİRİM.

 

[Muzaffer Ali]

kodlar hangi satıra gelince hata alıyorsunuz?

 

[muhalko]

SAYIN DALGALIKUR;

Loop While Not DEĞİŞTİR Is Nothing And DEĞİŞTİR.Address <> DÜZELT
SATIRINDA HATA VERİYOR.

MESELA ALT ALTA 10 SATIR VAR VE BUNUN 5. SATIRINDA DEĞİŞİKLİK YAPMAK İSTİYORUM. AMA BU KOD İLE HEM HATA VERİYOR HEM DE 10 SATIR BİRDEN DEĞİŞİYOR.

YARDIMINIZI BEKLİYORUM.

 

[korhan86119]

If sor = vbNo Then Exit Sub
SonSat = ListBox1.ListIndex + 2
Cells(SonSat, 2) = TextBox1
Cells(SonSat, 3) = TextBox2
Cells(SonSat, 4) = TextBox3
Cells(SonSat, 5) = TextBox4
ListBox1.RowSource = "b:b" & [a65536].End(3).Row
komutunu deneyin lütfen

 

[muhalko]

Sayın korhan86119;

anladığım kdarı ile bu kod listox ile çalışıyor. Ancak ben listbox kullanmadım.

 

[Muzaffer Ali]

Loop While Not DEĞİŞTİR Is Nothing And DEĞİŞTİR.Address <> DÜZELT

satırını aşağıdaki gibi yapın

Loop While Not DEĞİŞTİR.value ="" And DEĞİŞTİR.Address <> DÜZELT

 

[muhalko]

SAYIN DALGALIKUR;

"object variable or with block variable not set"

HATASI VERİYOR.

 

[Muzaffer Ali]

aşağıdaki kodları deneyin

Private Sub CommandButton2_Click()

Dim DEĞİŞTİR As Range, DÜZELT As String, No As Byte

If TextBox4 = "" Then
MsgBox "LÜTFEN FİRMA ADI GİRİNİZ!", vbCritical
TextBox4.SetFocus
Exit Sub
End If

No = 1

Set DEĞİŞTİR = Sheets("ZM").Range("B:B").Find(TextBox4)
If Not DEĞİŞTİR Is Nothing Then
DÜZELT = DEĞİŞTİR.Address
Do

DEĞİŞTİR.Offset(0, -1) = TextBox1
DEĞİŞTİR.Offset(0, 0) = TextBox2
DEĞİŞTİR.Offset(0, 1) = TextBox3

Set DEĞİŞTİR = Sheets("ZM").Range("B:B").FindNext(DEĞİŞTİR)
If DEĞİŞTİR Is Nothing Then Exit Do
If DEĞİŞTİR.Address <> DÜZELT Then Exit Do
Loop
MsgBox "DÜZELTME YAPILDI"

Else

MsgBox "ARADIĞINIZ FİRMA BULUNAMADI !", vbCritical

End If
Set DEĞİŞTİR = Nothing
End Sub

 

[Filose]

Bul Değiştir hakkında küçük bir değişiklik

Merhaba,
Buradan indirdiğim ekteki BUL ve DEĞİŞTİR makrosu için küçük bir değişiklik yapmak istedim ama başaramadım. Yardımcı olursanız çok sevinirim.

Makroyu çalıştırdığımda değiştir dediğim kelimeyi yerine koyduğu hücrenin önce tamamını silsin sonra değişecek kelimeyi yazsın. Kısaca sadece değiştirdiği kelime hücreye konulsun.

Emeğinize şimdiden teşekkür ederim.
Saygılar,

Ahmet