userform da değiştir sorunu

[mahmyt]

merhaba;
excel de userformda değiştir butonuna tanımladığım kodlar sonrası 2020 sayfasında güncelleme yapmıyor.
Formülü bir de siz kontrol edebilir misiniz.
Şimdiden teşekkürler

Private Sub CommandButton4_Click()
On Error GoTo bitir

aranan = TextBox4.Value

Range("D").Find(aranan).Select
guncelle = ActiveCell.Row

TextBox1.Value = Worksheets("2020").Cells(guncelle, 1)
TextBox2.Value = Worksheets("2020").Cells(guncelle, 2)
TextBox3.Value = Worksheets("2020").Cells(guncelle, 3)


TextBox5.Value = Worksheets("2020").Cells(guncelle, 5)
TextBox6.Value = Worksheets("2020").Cells(guncelle, 6)
TextBox7.Value = Worksheets("2020").Cells(guncelle, 7)
TextBox8.Value = Worksheets("2020").Cells(guncelle, 8)
TextBox9.Value = Worksheets("2020").Cells(guncelle, 9)

TextBox11.Value = Worksheets("2020").Cells(guncelle, 11)
TextBox12.Value = Worksheets("2020").Cells(guncelle, 12)

TextBox14.Value = Worksheets("2020").Cells(guncelle, 13)
TextBox15.Value = Worksheets("2020").Cells(guncelle, 14)

TextBox17.Value = Worksheets("2020").Cells(guncelle, 15)
TextBox18.Value = Worksheets("2020").Cells(guncelle, 16)

TextBox20.Value = Worksheets("2020").Cells(guncelle, 17)
TextBox21.Value = Worksheets("2020").Cells(guncelle, 18)

TextBox23.Value = Worksheets("2020").Cells(guncelle, 19)
TextBox24.Value = Worksheets("2020").Cells(guncelle, 20)

TextBox26.Value = Worksheets("2020").Cells(guncelle, 21)
TextBox27.Value = Worksheets("2020").Cells(guncelle, 22)

TextBox29.Value = Worksheets("2020").Cells(guncelle, 23)
TextBox30.Value = Worksheets("2020").Cells(guncelle, 24)
bitir:

End Sub

 

[ÖmerBey]

Merhaba,
Bu kodlarla sayfada değişiklik yapamazsınız, çünkü bu kodlar sayfadan veri almak için kurgulanmış. Sayfaya veri göndermek için kodlarınızdaki eşitlikleri ters çevirerek deneyiniz...

Worksheets("2020").Cells(guncelle, 1) = TextBox1.Value

 

[mahmyt]

hocam teşekkür ederim başta sizin sayenizde bütün excel web ailesi sayesinde yeni şeyler öğreniyorum

son olarak j sütununda macro cıkarma işlemi nasıl yapabilirim

 

[mahmyt]

daha açıklayıcı olarak j5 e normal eğer formülü attım ancak userformu acınca page1 de bulunan fark 1 bölümüne f5-h5 yazıcam ve her satır için devam etmesini istiyorum umuyorum anlatabilmişimdir.

 

[ÖmerBey]

Mevcut kodlarınızdan hareketle şu şekilde yazabilirsiniz.

Worksheets("2020").Cells(guncelle, 10) = Worksheets("2020").Cells(guncelle, 6) - Worksheets("2020").Cells(guncelle, 8)

 

[mahmyt]

hocam kusura bakmayın cıkarma işlemini yapıyor ancak bu cıkarma işlemini direk userform da 32.textboxa getiremiyorum

 

[ÖmerBey]

Kusura bakacak bir durum yok ancak isteğinizi yanlış anlıyor olabilirim.
Yukarıdaki kodlarınıza göre yazmayı deniyorum, aynı kodları kullandığınızı düşünerek...
Aşağıdaki şekilde dener misiniz?
Not: guncelle değerini yine yukarıdaki gibi aldığınızı varsayıyorum. Bu değer doğru gelmezse doğru sonuş alamazsınız.

TextBox32.Value = Worksheets("2020").Cells(guncelle, 6) - Worksheets("2020").Cells(guncelle, 8)

ya da

TextBox32.Value = Worksheets("2020").Cells(guncelle, 10)

 

[mahmyt]

Kusura bakacak bir durum yok ancak isteğinizi yanlış anlıyor olabilirim.
Yukarıdaki kodlarınıza göre yazmayı deniyorum, aynı kodları kullandığınızı düşünerek...
Aşağıdaki şekilde dener misiniz?
Not: guncelle değerini yine yukarıdaki gibi aldığınızı varsayıyorum. Bu değer doğru gelmezse doğru sonuş alamazsınız.

TextBox32.Value = Worksheets("2020").Cells(guncelle, 6) - Worksheets("2020").Cells(guncelle, 8)

ya da

TextBox32.Value = Worksheets("2020").Cells(guncelle, 10)

excel dediğiniz gibi yapıyorum ancak sanırım bu sizin ekle dediğiniz;

TextBox32.Value = Worksheets("2020").Cells(guncelle, 10) kod şeklini yanlış yere atıyorum excel sayfasında rakamı atıyor ama o değeri aynı zamanda
userform üzerine gelmesini istiyorum

 

[mahmyt]

excel hocam bi üsteki excel eski biraz eski pcde calısıyorum excel donmadan önceki kayıtlarımı kayıt etmemiş
size zahmet bu exceli dikkate alır mısınız

 

[ÖmerBey]

Bu son yüklediğiniz dosyaya göre Textbox32 ye hangi değerin ne zaman ya da hangi tuşa basıldığında alınacağını belirtir misiniz?

 

[mahmyt]

İlk kayıt yaptığım zaman userform penceresinde görünmesini ve bul tuşuyla userforma gelmesini istiyorum
Bir de değiştir tuşuna basınca 3 4 saniye grçikme sonrası işlemleri yapıyor bu normal midir

 

[ÖmerBey]

Bul kodunuzun sonuna aşağıdaki satırı ilave ediniz.

TextBox32.Value = Worksheets("2020").Cells(sil_satır, 10)

Kaydet koduna da aşağıdakini...

TextBox32.Value = Worksheets("2020").Cells(sonsatır, 10)

Değiştire bastığınız zaman da sayfaya veri yazdırdığınız için excel hesaplama yapıyor, bunun için gecikme yaşanıyor.
Değiştir kodunuzun başına Application.Calculation = xlCalculationManual
sonuna da Application.Calculation = xlCalculationAutomatic kodlarını ilave ederseniz işlem anında hesaplamayı iptal ederek kodunuzu birazcık hızlandırabilirsiniz.
Not: Örnek dosyanızda çıkarma işleminin yapılacağı F ve H sütunlarında sayısal veri yerine metin kullandığınız için kodlarınız hatalı çalışabilir, bilginize...

 

[mahmyt]

Allah razı olsun doğru geliyor su an

 

[ÖmerBey]

Allah hepimizden razı olsun.
İyi çalışmalar...