- Katılım
- 16 Kasım 2006
- Mesajlar
- 157
- Excel Vers. ve Dili
- excell 2003
- Altın Üyelik Bitiş Tarihi
- 28-12-2023
arkadaşlar yapmak istediğime yakın olduğundan dolayı yeni başlık adı altında soru açmadım.
arkadaşlar
verigirişi userformda commandbutton3(yazdır_aktar) var ben buraya aşağıdaki koduyazdım ve sadece bu kodda Hastane Ödeme Emri Belgesindeki isteğim bilgileri HDEFTER sayfasına aktarabildim.
Private Sub yazdır_aktar_Click()
If CheckBox4 = Empty Then
Worksheets("Hastane ödeme emri").PrintOut Copies:=1
Set s5 = Sheets("HDEFTER")
sonsat = s5.[c65536].End(3).Row + 1
s5.Cells(sonsat, "B") = [AG4]
s5.Cells(sonsat, "C") = [H6]
s5.Cells(sonsat, "D") = [ac46]
s5.Cells(sonsat, "E") = [U13]
s5.Cells(sonsat, "F") = [AA14]
s5.Cells(sonsat, "G") = [AA15]
s5.Cells(sonsat, "H") = ac46 & " " & ["Günü Ödendi"]
Worksheets("Hastane Ödeme Emri").PrintOut Copies:=1
ElseIf CheckBox4 = True Then
Set s6 = Sheets("HDEFTER")
sonsat = s6.[c65536].End(3).Row + 1
s6.Cells(sonsat, "B") = [AG4]
s6.Cells(sonsat, "C") = [H6]
s6.Cells(sonsat, "D") = [ac46]
s6.Cells(sonsat, "E") = [U13]
s6.Cells(sonsat, "F") = [AA14]
s6.Cells(sonsat, "G") = [AA15]
s6.Cells(sonsat, "H") = ["Günü Ödendi"]
Worksheets("Bütçeli Ödeme").PrintOut Copies:=1
End If
End Sub
amacım burada checkbox4 normal nakit ise hastane ödeme emri belgesindeki verileri HDEFTER'ine aynı Zamanda maliyeteslim sayfasındaki formata göre hastane ödeme emri belgesinden bilgi aktarsın(AG4 ve U13 Hücresi)
bunu aynı şekilde
checkbox4 bütçeli ise bütçeliödeme sayfasındaki bilgileri hem HDEFTER'e ve maliyeteslim belgesine aktarmasını istiyorum.
yukarıda akçıklamaya çalıştığım şekilde bir kod yazılabilir mi?
ayrıca
verigirişi userformuna rowscore yöntemi ile label-textbox-listbox lara ödeme emri belgesinden kurum ödemelerine ait bilgi getiremedim sürekli hata veriyor,
userform2 de kayıtta hata veriyor bir de bu konuya bakabilirmisiniz
ne yapmak istediğimi umarım anlatabildim.
teşekkürler
arkadaşlar
verigirişi userformda commandbutton3(yazdır_aktar) var ben buraya aşağıdaki koduyazdım ve sadece bu kodda Hastane Ödeme Emri Belgesindeki isteğim bilgileri HDEFTER sayfasına aktarabildim.
Private Sub yazdır_aktar_Click()
If CheckBox4 = Empty Then
Worksheets("Hastane ödeme emri").PrintOut Copies:=1
Set s5 = Sheets("HDEFTER")
sonsat = s5.[c65536].End(3).Row + 1
s5.Cells(sonsat, "B") = [AG4]
s5.Cells(sonsat, "C") = [H6]
s5.Cells(sonsat, "D") = [ac46]
s5.Cells(sonsat, "E") = [U13]
s5.Cells(sonsat, "F") = [AA14]
s5.Cells(sonsat, "G") = [AA15]
s5.Cells(sonsat, "H") = ac46 & " " & ["Günü Ödendi"]
Worksheets("Hastane Ödeme Emri").PrintOut Copies:=1
ElseIf CheckBox4 = True Then
Set s6 = Sheets("HDEFTER")
sonsat = s6.[c65536].End(3).Row + 1
s6.Cells(sonsat, "B") = [AG4]
s6.Cells(sonsat, "C") = [H6]
s6.Cells(sonsat, "D") = [ac46]
s6.Cells(sonsat, "E") = [U13]
s6.Cells(sonsat, "F") = [AA14]
s6.Cells(sonsat, "G") = [AA15]
s6.Cells(sonsat, "H") = ["Günü Ödendi"]
Worksheets("Bütçeli Ödeme").PrintOut Copies:=1
End If
End Sub
amacım burada checkbox4 normal nakit ise hastane ödeme emri belgesindeki verileri HDEFTER'ine aynı Zamanda maliyeteslim sayfasındaki formata göre hastane ödeme emri belgesinden bilgi aktarsın(AG4 ve U13 Hücresi)
bunu aynı şekilde
checkbox4 bütçeli ise bütçeliödeme sayfasındaki bilgileri hem HDEFTER'e ve maliyeteslim belgesine aktarmasını istiyorum.
yukarıda akçıklamaya çalıştığım şekilde bir kod yazılabilir mi?
ayrıca
verigirişi userformuna rowscore yöntemi ile label-textbox-listbox lara ödeme emri belgesinden kurum ödemelerine ait bilgi getiremedim sürekli hata veriyor,
userform2 de kayıtta hata veriyor bir de bu konuya bakabilirmisiniz
ne yapmak istediğimi umarım anlatabildim.
teşekkürler