Giriş sayfası oluşturma ve rapor alma

[metin80]

Ekli dosyadaki sayfa giriş ekranı oluşturup.rapor alma işlemini nasıl yapabilirim.acil yardım ve destekleriniz.rica

 

[metin80]

yanlış bir soru sormadım değil mi?

 

[Orion1]

Ekle kısmını ben yaptım.Diğerlerini başka arkadaşlar yapabilirler.
Dosyanız ektedir.

Sub Resim1_Tıklat_59()
Dim sh As Worksheet, sat As Long
'coder=evrengizlen@hotmail.com
Set sh = Sheets("GİRİŞ SAYFASI")
sat = sh.Cells(65536, "A").End(xlUp).Row
If sat >= 33 Then
     MsgBox "SATIR sayısı 20 adedi geçemez!" & vbLf & "İşlem İptal oldu", vbCritical, "U Y A R I"
     Set sh = Nothing
     Exit Sub
End If
     
sh.Cells(sat + 1, "A").Value = sat - 12
sh.Cells(sat + 1, "B").Value = Cells(10, "B").Value
sh.Cells(sat + 1, "C").Value = Cells(10, "C").Value
sh.Cells(sat + 1, "D").Value = Cells(10, "D").Value
sh.Cells(sat + 1, "E").Value = Cells(10, "E").Value
sh.Range("B10:E10").ClearContents
sh.Range("B10").Select
Set sh = Nothing

End Sub
Sub temizle_59()
Sheets("GİRİŞ SAYFASI").Range("A14:F33").ClearContents
End Sub

 

[metin80]

teşekkürler cevap için.yavaş yavaş yaparız umarım bunu.peki burada ekle dediğimizde girmiş olduğum verileri temizleme yapamazmıyız.birde alta eklediğimiz kısımı sınırlandıra bilirmiyiz.mesala 20 kalem giriş yapmaya müsade verecek.

 

[Orion1]

teşekkürler cevap için.yavaş yavaş yaparız umarım bunu.peki burada ekle dediğimizde girmiş olduğum verileri temizleme yapamazmıyız.birde alta eklediğimiz kısımı sınırlandıra bilirmiyiz.mesala 20 kalem giriş yapmaya müsade verecek.

Düzenlemeyi yaptıöm.
3 numaralı mesajdan indirebilirsiniz.

 

[metin80]

burada veri tuşuna basınca hem aşağı yazacak hemde girdiğim veri yerlerini temizleyecek.başka düğmede silme işlemi yapmışınız fakat silinmesi gereken yer aşağıdaki girilen veriler değil.yani veri tuşundan önceki sadece kod -isim ve miktar kısmı olacak.
yinede teşekkürler.emeğiniz için

 

[Orion1]

burada veri tuşuna basınca hem aşağı yazacak hemde girdiğim veri yerlerini temizleyecek.başka düğmede silme işlemi yapmışınız fakat silinmesi gereken yer aşağıdaki girilen veriler değil.yani veri tuşundan önceki sadece kod -isim ve miktar kısmı olacak.
yinede teşekkürler.emeğiniz için

Dosyayı güncelledim.
3 numaralı mesajdan indirebilirsiniz.

 

[metin80]

emeğinze sağlık.teşekkürler.