USERFORM FORMÜLLERİ?

[abhaz]

USERFORM FORMÜLLERÝ?

ekli dosyada hesap ekle butonuna tıklayınca açılan userformda hesap no, hesap adı, kaydet, temizle ve kapat butonları var. Userforma yazılan hesap no ve hesap adının, hesaplar sayfasındaki A ve B sütunlarına kaydedilmesini istiyorum. BUNA 5 GÜNDÜR CEVAP BULAMADIM. lütfen acil yardım...

 

[Kemal Demir]

'işlem Diyelimki Herhangibir sayfada
'hesapno=Textbox1 olacak
'hesapadı=Textbox1 olacak
'1 kolon yanı A kolonu hesap no
'2 kolon yanı b kolonu hesapadı

Private Sub CommandButton1_Click()
satir= WorksheetFunction.CountA(Sheets("hesaplar").Range("a1:a63664"))+1
Sheets("hesaplar").Cells(satir,1).value=textbox1.value
Sheets("hesaplar").Cells(satir,2).value=textbox2.value
MsgBox("Veriler Kaydedildi")
Textbox1.value=""
Textbox2.value=""
Textbox1.setfocus
unload me

End Sub


Dosyanı Açamadım Ama zannedersem Böle Birşey İstedin diye Dusundum .
Kendınıze Göre Uyarlıya Bilirsiniz.

İyi Çalışmalar.

 

[abhaz]

DOSYAYI TEKRAR YÜKLEDÝM

yeniden yükledim. formülleri yazamadım...

 

[Kemal Demir]

Umarım İşinizi Görür

 

[abhaz]

tam istediğim gibi olmuş.
eline sağlık.
çok teşekkür ederim...