Veri değiştirme problemi

[kemal turan]

merhaba,
Aşağıdaki sorun dün beni gece 3 e kadar uyutmadı.Sorunu anlayamadım.
şimdi,
Bu kod ile textboxlara verileri alıyorum.

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets("SATICILAR").Select
Dim K As Range, SAT As Long
With Sheets("SATICILAR")
SAT = Sheets("SATICILAR").Cells(Rows.Count, "B").End(xlUp).Row
Set K = .Range("B2:B" & SAT).Find(FIRMAKAYDIDEG.ComboBox1.Text, , xlValues, xlWhole)
If Not K Is Nothing Then
TextBox1.Text = K.Offset(0, -1).Value
TextBox2.Text = K.Offset(0, 1).Value
TextBox3.Text = K.Offset(0, 2).Value
TextBox4.Text = K.Offset(0, 3).Value
TextBox5.Text = K.Offset(0, 4).Value
TextBox6.Text = K.Offset(0, 5).Value
TextBox2 = Format(FIRMAKAYDIDEG.TextBox2, "(###) ### ## ##")
TextBox3 = Format(FIRMAKAYDIDEG.TextBox3, "(###) ### ## ##")
Else
         
    End If
    End With
Set K = Nothing
End Sub

bu kod ile silme işlemi yapabiliyorum. sıkıntı yok

Private Sub CommandButton2_Click()
Sheets("SATICILAR").Select
Set s1 = Sheets("SATICILAR")
Dim bul As Range
For Each bul In Sheets("SATICILAR").Range("A2:A" & s1.Range("A65536").End(3).Row)
If bul.Text = FIRMAKAYDIDEG.TextBox1.Text Then
bul.EntireRow.Delete
End If
Next bul
MsgBox "CARI VERİ TABANINDAN SİLİNMİŞTİR."

End Sub

bu kodda sıkıntı var.
1-hiç bir hata vermiyor
2-bul.Offset(0, 6).Value =satırını (0, 7) yaptığımda kayıt yapıyor. B-G sutunlarına kayıt yapmıyor.

Private Sub CommandButton1_Click()
cevap = MsgBox("Cari bilgiler değiştirilecek. Onaylıyormusunuz..?", vbYesNo, "DEĞİŞTİRME ONAYI")
If cevap = vbYes Then
Sheets("SATICILAR").Select
Set s1 = Sheets("SATICILAR")
Dim bul As Range
For Each bul In Sheets("SATICILAR").Range("A2:A" & s1.Range("A65536").End(3).Row)
If bul.Text = FIRMAKAYDIDEG.TextBox1.Text Then
bul.Offset(0, 1).Value = FIRMAKAYDIDEG.ComboBox1.Value
bul.Offset(0, 2).Value = TextBox2.Value
bul.Offset(0, 3).Value = TextBox3.Value
bul.Offset(0, 4).Value = TextBox4.Value
bul.Offset(0, 5).Value = TextBox5.Value
bul.Offset(0, 6).Value = TextBox6.Value

End If
Next bul
MsgBox "CARI DEĞİŞİKLİĞİ YAPILMIŞTIR.."
End If

End Sub

 

[vardar07]

Firma Bilgileri formundan bahsediyorsanız sıkıntı yok "G" sütununda değişiklik yapıyor.

 

[kemal turan]

Sn.vardar merhaba
Kod bizi kandırıyor.
Değiştirildi mesaj veriyor ama Satıcılar sahifesinde değişiklik yapmıyor

 

[kemal turan]

Userform initialze olayından olabilir mi

 

[systran]

msgbox olan ifadeyi araya taşıyın.

bul.Offset(0, 6).Value = TextBox6.Value
[COLOR="Red"]MsgBox "CARI DEĞİŞİKLİĞİ YAPILMIŞTIR.."[/COLOR]
End If

 

[kemal turan]

Merhaba Ustalarımız,
Bir durum var çözüm için fikir verebilir mi,
Satıcılar sahifesinin içinde iken sadece FIRMAKAYDIDEG adlı userformu açtığımız zaman değişikilik yapıyor.
Ana menü sahifesine gelip Satınalma>Satıcı bilgileri butonuna basıp FIRMAKAYDIDEG userformunu çalıştırdığımız zaman değişiklik yapmıyor.
Örnek dosya ektedir.

 

[kemal turan]

Sn.Systran merhaba
Olmadı aynı sorun devam ediyor

 

[vardar07]

Probleminiz 3 adet userform açık kaldığı için oluyor. Sıra ile önce açılan formu kapatıp diğerini açacak şekilde yapıp denerseniz çalıştığını göreceksiniz.

Unload [COLOR="Red"]ilkaçılanform[/COLOR]
[COLOR="red"]açılacakform[/COLOR].show

 

[kemal turan]

Merhaba Sn.Vardar
Bende deneme yaptım.Tekil açtığımda başka sayfada üzerinde olsada sorun yok.
Bilgi için soruyorum.
3 userform açıldığı zaman genelde sıkıntımı olur?
Projelerde aç kapa şeklinde komutlarla tek userformun mu açık olması mı daha sağlıklı?
Fakat satır silme işleminde sıkıntı olmuyordu.:???:
Yardımınız için Teşekkür ederim.
Selametle kalınız.

 

[vardar07]

FIRMAKAYDIDEG formundaki kodu aşağıdaki gibi değiştirip denermisiniz.

Private Sub CommandButton1_Click()
cevap = MsgBox("Cari bilgiler değiştirilecek. Onaylıyormusunuz..?", vbYesNo, "DEĞİŞTİRME ONAYI")
If cevap = vbYes Then
Sheets("SATICILAR").Select
Set s1 = Sheets("SATICILAR")
Dim bul As Range
For Each bul In Sheets("SATICILAR").Range("B2:B" & s1.Range("B65536").End(3).Row)
If bul = ComboBox1 Then
bul.Offset(0, -1).Value = TextBox1.value
bul.Offset(0, 1).Value = TextBox2.Value
bul.Offset(0, 2).Value = TextBox3.Value
bul.Offset(0, 3).Value = TextBox4.Value
bul.Offset(0, 4).Value = TextBox5.Value
bul.Offset(0, 5).Value = TextBox6.Value

End If
Next bul
MsgBox "CARI DEĞİŞİKLİĞİ YAPILMIŞTIR.."
End If

End Sub

 

[kemal turan]

Sn.Vardar merhaba,
evet şimdi oldu.
Teşekkür ederim.