Kaydet Butonu İle İlgili

[zakaak2001]

Merhaba;

Arkadaşlar ben bir stok giriş tablosu ve diğer sayfaya, girilen değerleri atayan bir buton yaptım.Butona tıkladığım zaman diğer sayfaya değerleri atıyor.Ama başka değerler girdiğimde ve butonu tıkladığımda bir alt satıra değerleri atamasını istiyorum. Bu konuda acil yardımlarınızı bekliyorum.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub kaydet()
Set s1 = Sheets("detay")
sonsat = s1.[b65536].End(3).Row + 1
s1.Cells(sonsat, "b") = [a9]
s1.Cells(sonsat, "c") = [a17]
s1.Cells(sonsat, "d") = [a25]
s1.Cells(sonsat, "e") = [c9]
s1.Cells(sonsat, "f") = [c17]
s1.Cells(sonsat, "h") = [c25]
s1.Cells(sonsat, "g") = [c31]
End Sub

 

[udentr2002]

merhaba

dosyanızı biraz değiştirdim userform kullanarak yaptım eğer beğenir vede işnizi görürse kullanabilrsiniz bir inceleyin ekli dosyayı isterseniz

 

[udentr2002]

özür

levent hoca cevap vermiş bile ben görmemiştim ama yinede bir incele belki formlu kullanmak istersin

 

[zakaak2001]

Sayın hocalarım çok teşekkür ederim. Bir de göderdiğiniz tabloyu inceledim. Burada alanları elle yazmak yerine combo box ile seçip otomatik atama yapabilirmiyiz?user formu oluşturduktan sonra nasıl kaydedeceğim. Buton ve combobox lara nasıl atama yapmam gerekiyor? Saygılarımla...

 

[udentr2002]

??

alan derken neyi kastediyorsun daha açıkalyıcı yazarmısın?

 

[udentr2002]

incelermisin

Sanırım istediğin böyle bir şey önce dosyana kodlar adlı bi sayfa oluşturdum buraya kodları girdim dosyayı incelersen daha iyi anlarsın inşallah istediğin gibi bir şey olmuştur

 

[zakaak2001]

Çok teşekkür ederim. Bir de son bişey daha sormak istiyorum. Formu aç butonuna bastığımda user form geliyor ya. O formu nasıl butona bağlıyoruz. Bunu kod yazmadan yapabilirmiyim?

 

[udentr2002]

zakaak

Önce araç çubuklarının olduğu alana sağ tıkla Formlar kısmını işaretle orda gelen Coman button bölümü var ona tıkla ve sayfanın herhangi bir yerine oluştur düğmeyi oluşturduğunda sana bi makro sayfası geleck orda yeni düğmesine tıkla açılan sayfaya şu kodu yaz

Sub Düğme1_Tıklat()
UserForm1.Show

End Sub

bu kod userformu açar

 

[udentr2002]

diğer soruna cevabını unutmuşum

eğer kasteddiğin sayfa açılır açılmaz userform sayfasının gelmesi ise visual basic de bir modül sayfası aç ve şu kodları yaz
sub auto_open
userform1.show
end sub
kodlarını yazıp kaydedersen bundan sonra o excel sayfan her açılışında otomatik olarak form sayfan gelecek

 

[zakaak2001]

Üstadım. denedim fakat bana run time error 424 diye bir uyarı yazısı gönderiyor.

 

[udentr2002]

???

hangisini denedin yani ne yapmak istediğinde hata verdi?? açıklayarak yazarmısın?

 

[udentr2002]

dosyayı tekrar gönderiyorum

ekli doayayı incelermisin dosyayı açar açmaz userform gelecektir

 

[zakaak2001]

Merhaba üstad. Ben bir userform oluşturdum. kodları girdiğimde bana ürün adını ve mağaza adını otomatik yazacak şekilde yapmak istiyorum. Size bir dosya gönderiyorum. Mümkünse bana sheet 1 e girdiğim değerlerin aktarımını sheet 2 ye yapacak şekilde düzenleyebilrmisiniz. Ben de öğreneyim bu arada. Datalar ektedir bu arada.

 

[udentr2002]

zakaak

kodları girdiğimde bana ürün adını ve mağaza adını versin diyorsunuz yanlız gönderdiğiniz dosyada sadece sayfa1 de kodlar yanında da mağaza adı var ürün adı yok sadece 1 tane kod var bu kod hem ürün adı hemde mağaza içinmi geçerli bunu açığa çıkarırsanız Çünkü dosyanızda ürün adları diye br şey yok ???

 

[zakaak2001]

Pardon şimdi ürün kodlarını değiştirdim. Kusuruma bakmayın. Yeni dosyayı gönderiyorum.

 

[udentr2002]

aynı dosyayı göndermişsiniz bekleseniz ben bi dosya oluşturayım sizin dosyanızın üzerinden

 

[zakaak2001]

Üstad kenarda mağaza kodlaı 100 lü,ürün kodları 900 lü olarak gidiyor. herhalde kenarda kaldığı için görememiş olabilirsiniz.

 

[udentr2002]

kardeş

dosyanı oluşturmaya çalıştım inşallah dediğin gibi olmuştur sayfa 1 de bulunan ürün malzeme ve mağaza kodları ile adlartını kendine göre değiştir

 

[zakaak2001]

Çok teşekkür ederim. Fakat mağaza adı da combo box olacak.User form sheet 1 de. Diğer datalar sheet 3 te olmalı. girilen veriler sheet 2 ye aktarılmalı.Sana da zahmet veriyorum.