- Katılım
- 24 Temmuz 2008
- Mesajlar
- 1,587
- Excel Vers. ve Dili
- Ofis 2013 TR 32 Bit
abi şimdide temizleme butonunu koymak istiyorum
Temizleme butonuna :
[gelir!F25] = ""
...
....
'Diğerlerinide bu şekilde yaparsınız..
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
abi şimdide temizleme butonunu koymak istiyorum
Temizleme butonuna :
[gelir!F25] = ""
...
....
'Diğerlerinide bu şekilde yaparsınız..
üstad senin yardımınla combobox sütünuna verilari yazdık ama ben bu verilerin excel veriler sayfasındaki listeden almasını istiyorum nasıl yapabilirm.
Private Sub UserForm_Initialize()
UserForm1.ComboBox3.RowSource = "Sayfa1!D49"
txtAD1 = [gelir!B13]
txtTESP1 = [gelir!a25]
txtTESP2 = [gelir!a26]
txtTESP3 = [gelir!a27]
txtTESP4 = [gelir!a28]
txthayvan1 = [gelir!B35]
txthayvan2 = [gelir!B36]
txthayvan3 = [gelir!B37]
txthayvan4 = [gelir!B38]
txthayvan5 = [gelir!B39]
txthayvan6 = [gelir!C40]
txthayvan7 = [gelir!C41]
txthayvan8 = [gelir!C42]
ComboBox3 = [gelir!A46]
ComboBox2 = [gelir!d46]
ComboBox1 = [gelir!F19]
bitki1 = [gelir!F25]
bitki2 = [gelir!F26]
bitki3 = [gelir!F27]
bitki4 = [gelir!F28]
bitki5 = [gelir!F29]
bitki6 = [gelir!F30]
bitki7 = [gelir!F31]
bitki8 = [gelir!F32]
bitki9 = [gelir!F33]
bitki10 = [gelir!F34]
bitki11 = [gelir!F35]
bitki12 = [gelir!F36]
bitki13 = [gelir!F37]
bitki14 = [gelir!F38]
bitki15 = [gelir!G39]
bitki16 = [gelir!G40]
bitki17 = [gelir!G41]
bitki18 = [gelir!G42]
End Sub
Debug diyerek hata veren satıra bakınız.böyle yazdığımda bana hata uyarısı geliyor..
başka bir exel sayfasında
macro güvenliğini değiştir.
Dosyanı macroları devere dişi bırakarak aç
userform a bir düğme ekle o düğmeyede
application.visible = true ' exeli gösterir.
Unload me ' formu kapatır.
Bu kodu yaz.
Formu kapatır exel sayfanı görünür hale getirir.