veri değiştirme

[kemal turan]

merhaba,
cari listedeki cari bilgileri değiştirmek istiyorum.
ek dosyada açıklayıcı bilgiler mevcuttur.
Teşekkür ederim

 

[Muzaffer Ali]

Merhaba. Dosyayı inceler misiniz?

 

[kemal turan]

Merhaba hocam,
aşağıdaki kodu sitemizden bulup sorunu çözebildim.
Sizin çözümünüz daha basit ama çözümleyemedim.
Kodunuzda cari sayfasındaki cari kodu nasıl buluyor.Mantığı açıklarsanız sevinirim.

Private Sub CommandButton4_Click()
If Sheets("SORGU").Range("a1").Value = "" Then
           MsgBox "HERHANGİ BİR VERİ DEĞİŞTİRİLMEDİ"
Exit Sub
Else
End If

Set s1 = Sheets("SORGU")
Set S3 = Sheets("CARİ")

sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub

Dim bul As Range
For Each bul In Sheets("cari").Range("B2:B" & Range("B65536").End(3).Row)
If bul.Value = TextBox1.Text Then

bul.Offset(0, 1).Value = (TextBox2.Text)
bul.Offset(0, 2).Value = (TextBox3.Text)
bul.Offset(0, 3).Value = (TextBox4.Text)
bul.Offset(0, 4).Value = (TextBox5.Text)
bul.Offset(0, 6).Value = (TextBox6.Text)
bul.Offset(0, 7).Value = (TextBox7.Text)
bul.Offset(0, 8).Value = (TextBox8.Text)
bul.Offset(0, 9).Value = (TextBox9.Text)

End If
Next bul
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
End Sub

 

[Muzaffer Ali]

Ben bir hata yaptım. "Cari No" yu "Sıra No" olarak görüp yazan numaraya göre değişiklik yaptım.
Sizin buraya yazdığınız kodlar doğrusu benim kodlarımı kullanmayın.

 

[kemal turan]

Teşekkür ederim

 

[kemal turan]

Benim bulduğum kod da sıkıntı var.
Ustalar yardımcı olabilirlerse memnun olurum

 

[PLİNT]

Benim bulduğum kod da sıkıntı var.

Merhaba
Sıkıntı başka sayfa aktifken "cari" sayfasına veri gönderiliyorsa "B" sütununun
son dolu satır no alınamıyordur döngü başlagıcında aşağıdaki gibi "s3" tanımını
ekleyip deneyin (veya "Sheets("cari").")
Birde dosyanızı bilemiyorum ama aşağıda atlanan sütun var.

'....kodlarınız
'......
Set S3 = Sheets("CARİ")
sor = MsgBox("Değiştirmek istediğinizden eminmisiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
Dim bul As Range
For Each bul In Sheets("cari").Range("B2:B" & [COLOR="Red"]S3[/COLOR].Range("B65536").End(3).Row) 
'.....
'.......
bul.Offset(0, [COLOR="Red"]4[/COLOR]).Value = (TextBox5.Text)
bul.Offset(0, [COLOR="Red"]6[/COLOR]).Value = (TextBox6.Text)

 

[kemal turan]

Sn.Plint
Çok teşekkür ederim.
Selametle kalınız