User Forum kayıt

[argo619]

arkadaşlar sizleri bunaltıyorum biliyorum ama yardımlarınıza ihtiyacım var
bağışlayın
ekli dosyamda bir user forum düzenledim ona girdiğim değerleri ilgili sayfanın ilgili hücrelerine kaydetmesini istiyorum nasıl yapabilirim
yardımlarınız için şimdiden teşekkürler

 

[Skorpiyon]

Sayın argo619,

Kaydet butonunuz altına aşağıdaki kodları ekleyin.

Private Sub CommandButton1_Click()
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("A65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Value = TextBox1.Value
ActiveCell.Offset(1, 1).Value = TextBox2.Value
ActiveCell.Offset(1, 2).Value = TextBox3.Value
Sheets("Sayfa2").Select
Range("A65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Value = TextBox1.Value
ActiveCell.Offset(1, 1).Value = TextBox2.Value
Sheets("Sayfa1").Select
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Kayıt Tamam"
End Sub

 

[argo619]

Sn Hocam öncelikle ilgi ve alakanıza teşekkürler çok sağolun
verdiğiniz kotlar mükemmel bişekilde çalıştı
yalnız bunun espirisini öğrenmek istiyorum çünkü benim user forum tablosunda çok fazla sayıda bilgi girişleri olacak ve ilgili sayfaların belirlenen hücrelerine atılacak
mesela örneğinizde:
Sheets("Sayfa2").Select
Range("A65536").End(xlUp).Select
Ben bu kodu
Sheets("Sayfa3").Select
Range("c29").End(xlUp).Select desem bilgi sayfa3 c29 hücresine gidermi
Yani belli bir sayfanın sadece bir hücresine birinci labeldeki bilgi gidecek, o şekilde çoğaltırım
yani istediğim hücreye atması için beni aydınlatırmısın bi zahmet
saygılarımla

 

[Skorpiyon]

Sayın argo619,

Bu kodlar ile her zaman aynı hücrelere veri atılmaz. Her kaydet butonuna bastığınızda, önceki girilen verinin bir altına kaydeder.

Örneğin kaydet butonuna bastığınızda her defasında Sayfa3 C29 hücresine bilgi göndermek istiyorsanız, hazırladığınız formun üzerindeki textbox1 nesnesinin değerini şu şekilde gönderebilirsiniz.

Sheets ("Sayfa3").Range("C29").Value = Textbox1.Value

 

[argo619]

Şaban hocam çok özür diliyorum internetimde sorun vardı bağlanamadım mesajinizi yeni okudum ilgi ve alakanıza teşekkür ederim sağolun

 

[argo619]

Sn hocam bir türlü beceremedim dosyamı ekledim umarım yardımcı olursun
sizleri rahatsız ettim ama inanın buna ihtiyacım var
şimdiden teşekkürlerimi arz ederim

 

[Skorpiyon]

Sayın argo619,

Ekli örneği inceleyin.

 

[argo619]

Değerli üstat Allah razı olsun
çok teşekkür ederim
mükemmelsinizx
sağolun

 

[argo619]

Sn hocam
Error in Looding DLL
hatası veriyor
bi bakabilirmisiniz
saygılarımla

 

[mttlp]

elınıze saglık