Userformdaki bilgileri sayfada güncelleyemiyorum

[ockucukay]

Kod no userform 11'deki combobox ile düzeltilecek kaydı seçiyorum. Düzeltmeleri yaptıktan sonra kaydet tuşuna bastığımda sayfadaki kayıtlar değişmiyor. Hatalı olan nedir?

Tüm proje kodları açıktır ve tüm kodları vba içinde bulabilirsiniz.

Kaydet kodu aşağıdaki gibidir:

Private Sub B02_Click()
For i = 1 To 10000
ProgressBar1 = i * 100 / 10000
Next
On Error Resume Next
Sheets("Kalibrasyon Listesi").Activate
If kayıt = True Then
Call SonKayıt
Call YeniVeriKaydet
Call EkranKaydet
Else
Call VeriKaydet
Call EkranKaydet
End If
kayıt = False
Unload Me
End Sub

 

[ockucukay]

merhaba arkadaşlar

bu konuda sizden yardım bekliyorum. bu konuyu sonuçlandırdığımda bekleyen diğer projelerimi de tamamlamış olacağım. sizden yardımcı olmanızı rica ediyorum.

 

[Korhan Ayhan]

Merhaba,

Düzeltme işleminde "ActiveCell" üzerinden işlem yapmışsınız. Fakat "ActiveCell" her zaman doğru hücrede konumlanmıyor. Bu sebeple yaptığınız düzeltmeler çoğu zaman listenin en altına kayıt ediliyor.

"DÜZELT" butonuna tıkladığınızda ilgili kayıdı buldurarak sorunu çözebilirsiniz. Bu şekilde "ActiveCell" doğru şekilde konumlanacağı için sorun ortadan kalkacaktır.

Private Sub B09_Click()
    Call EkranYeniKayıt
    B10.Enabled = True
[COLOR=red]    Range("B:B").Find(ALAN02.Value, , , xlWhole).Offset(0, -1).Activate
[/COLOR]End Sub

 

[ockucukay]

Merhaba Korhan hocam

Verdiğiniz kodla sorunu çözemedim. Sizin daha önceden yazdığınız aşağıdaki gibi bir kod kullanmaya çalıştım ama yine olmadı. Başka nasıl bir yöntem kullanabilirim?



Sub KAYIT_BUL_ALAN01()
Dim BUL As Range, ADRES As String

Set BUL = Range("A:A").Find(ALAN01.Text, , , xlWhole)
If Not BUL Is Nothing Then
ADRES = BUL.Address
Do
ActiveCell.Value = ALAN01.Value

Set BUL = Range("A:A").FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> ADRES
End If
End Sub

 

[ockucukay]

merhaba arkadaşlar

yardımcı olabilecek var mı? benzer sistemi kullandığım projeleri de bekletiyorum bu sorun yüzünden. eğer sorunu çözebilirsek çok minnettar kalacağım.

Merhaba Korhan hocam

Verdiğiniz kodla sorunu çözemedim. Sizin daha önceden yazdığınız aşağıdaki gibi bir kod kullanmaya çalıştım ama yine olmadı. Başka nasıl bir yöntem kullanabilirim?



Sub KAYIT_BUL_ALAN01()
Dim BUL As Range, ADRES As String

Set BUL = Range("A:A").Find(ALAN01.Text, , , xlWhole)
If Not BUL Is Nothing Then
ADRES = BUL.Address
Do
ActiveCell.Value = ALAN01.Value

Set BUL = Range("A:A").FindNext(BUL)
Loop While Not BUL Is Nothing And BUL.Address <> ADRES
End If
End Sub