USEFORMDAN veri aktarma

[veycell29]

USERFORMDAN veri aktarma

arkadaşlar kendi çapımda useform yapmak için uğraşıyorum. şimdi ekdeki dosyada useforma girdiğim verilerimi iki kısım halinde excel kısmında gelir yazan yere aktamak istiyorum zirai gelir yazdır dediğimde de gelir kısmındaki sayfanın çıktısını almak ve kayıt kısıma sırasıyla kaydetmek istiyorum kodları çok kurcaladım ama bir türlü beceremedim bu konuda yardımcı olursanız sevinirim

 

[veycell29]

birde bana yapmaktan ziyade kodları verirseniz ben inceleyerek yapayım...

 

[Mustafa MUTLU]

TextBox lara isim vermişiniz.

[gelir!F25] = bitki1

Bu kod Buğday için yazdığınız Veriyi gelir Sayfasının F25 Hücresine yazar
Koduda hangi tuşu tıkladığınızda yazmasını istiyorsanın o buttonu çift tıklayın açılan sub ve edn sub arasına yazın diğerleri içinde aynısını kullanın..

 

[veycell29]

sağolasın üstad. şimdi bana direk bu userformun açılması için kod lazım..

TextBox lara isim vermişiniz.

[gelir!F25] = bitki1

Bu kod Buğday için yazdığınız Veriyi gelir Sayfasının F25 Hücresine yazar
Koduda hangi tuşu tıkladığınızda yazmasını istiyorsanın o buttonu çift tıklayın açılan sub ve edn sub arasına yazın diğerleri içinde aynısını kullanın..

 

[Mustafa MUTLU]

Sub Formu_Aç()
UserForm1.Show
End Sub

Bu kodu bir modüle yazın
Sayfaya koyacağınız bir düğmeye bu kodu (Formu_Aç) atayın..

 

[Mustafa MUTLU]

Sub AUTO_OPEN()
Userform1.Show
End Sub

Bu Kod ise
Bir düğmeye gerek olmadan
Exel açıldığında form direk açılır.

 

[veycell29]

Private Sub Workbook_Open()
UserForm1.Show
End Sub

ben kodu kullandım excel açılınca direk açılıyor ama arkadaki excel sayfasının kapalı olmasını istiyorum o mümkün mü
?

Sub Formu_Aç()
UserForm1.Show
End Sub

Bu kodu bir modüle yazın
Sayfaya koyacağınız bir düğmeye bu kodu (Formu_Aç) atayın..

 

[Mustafa MUTLU]

Application.Visible = False

Bu kodu ekleyiniz.

 

[veycell29]

sağolasında üstad şimdide kod yazmaya dönemiyorum direk o sayfa açılılıyor bunu bir tuşu var mı?

Application.Visible = False

Bu kodu ekleyiniz.

 

[Mustafa MUTLU]

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.

 

[Mustafa MUTLU]

[gelir!F25] = bitki1
[gelir!G25] =[gelir!E25] *[gelir!F25]

Yazarsanız
=E25*F25
Formülünüzü yazmanıza gerek kalmaz.
Formül her harekette yeniden hesaplama yaptığı için
Dosyanıza ek yük getirir.
Ayrıca formül yanlışlıkla silinebilir.
Bun tür hatayı engellemiş olursunuz

 

[veycell29]

Tekrardan sağol üstad sana çok soru sordum farkındayım ama öğrenmeye çalışıyorum..
şimdide bana texbox kutularında otomatik 0 satırı getirmem lazım ben sadece istediğimi değiştireceğim birde userformu kapttığım zaman exceli otomatik kaydetmesiniz istiyorum

 

[Mustafa MUTLU]

texbox u tıkladığında
Sol menüde Value kısmına 0 yazarsan textbox 0 yazılı gelir.

Exeli kapatırken değişiklikler kaydedilsinmi sorusu geliyordur hayır dersiniz kaydetmez.
Ancak her 10 dakikada bir otomatik kayıt yapıyor olabilir excel
Otomatik kayıtı iptal ederseniz sorun kalmaz.

Bu işlemide 2003 de sanırım
Araçlar menüsü => Seçenekler kısmından dı...

 

[veycell29]

excele kaydetmesini istiyorum

texbox u tıkladığında
Sol menüde Value kısmına 0 yazarsan textbox 0 yazılı gelir.

Exeli kapatırken değişiklikler kaydedilsinmi sorusu geliyordur hayır dersiniz kaydetmez.
Ancak her 10 dakikada bir otomatik kayıt yapıyor olabilir excel
Otomatik kayıtı iptal ederseniz sorun kalmaz.

Bu işlemide 2003 de sanırım
Araçlar menüsü => Seçenekler kısmından dı...

 

[Mustafa MUTLU]

Kod ların sonuna End Sub dan önce

ActiveWorkbook.Save

Bu kodu yazarsanız
Kaydeder.

 

[veycell29]

peki userforumu kapattığım açtığım zaman en son kaydettiğim veriler gelmesi için

 

[veycell29]

birde aşağıdaki koddaki hatayı anlamadım

Private Sub UserForm_Activate()
ComboBox1.AddItem ( "Ebubekir ATALAY" , "Veysel SOYDAŞ" , "Erçin ÇAKMAK")

End Sub

 

[Mustafa MUTLU]

birde aşağıdaki koddaki hatayı anlamadım

Private Sub UserForm_Activate()
ComboBox1.AddItem ( "Ebubekir ATALAY" , "Veysel SOYDAŞ" , "Erçin ÇAKMAK")

End Sub

Bu Kod ComboBox1 e sabit değerler veriyor
Yani 3 isimi alt alta gösteriyor size isimleri hazır gösteriyor
Yazmaktan kurtuluyorsunuz yani..

Şunu Deneyiniz..

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Ebubekir ATALAY"
.AddItem "Veysel SOYDAŞ"
.AddItem "Erçin ÇAKMAK"
End With
End Sub

 

[Mustafa MUTLU]

peki userforumu kapattığım açtığım zaman en son kaydettiğim veriler gelmesi için

Private Sub UserForm_Initialize()

bitki1 = [gelir!F25]
'Diğerlerinide bu şekilde yaparsınız..
End Sub

 

[veycell29]

abi şimdide temizleme butonunu koymak istiyorum