Amatörce yaptığım dosyada yardımcı olabilirmisiniz
#1
Amatörce yapmaya çalıştığım Kurban takibi dosyasında (Ekteki dosyada) Liste sayfasında bir kişi adı girip ödemesini kaydedince ödeme sayfasındaki makbuzu o kişi adına yazdırmak istiyorum. Bunun yolu nasılsa yardımcı olabilirmisiniz.


Eklenti Dosyaları
.rar   KURBAN TAKİP PROGRAMI.rar (Boyut: 219,78 KB / İndirilme: 11)



  Alıntı
Bu mesajı beğenenler:
#2
Sayfa1(LİSTE) VBA'sina
Visual Basic
  1. Option Explicit
  2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  3. Dim Hane As String, KayitBul As Long
  4. Hane = Replace(Target.Address, "$", "")
  5. If Mid(Hane, 1, 1) <> "H" Then Exit Sub
  6. Call Makbuz(Mid(Hane, 2, Len(Hane)))
  7. End Sub


Modul1'e
Visual Basic
  1. Option Explicit
  2. Dim Kyt As Long
  3. Sub Makbuz(Hane As Long)
  4. Worksheets(5).Range("D5").Value = Worksheets(1).Range("H" & Hane)
  5. Worksheets(5).Range("D10").Formula = "=SUM(" & Worksheets(1).Name & "!L" & Hane & ":P" & Hane & ")"
  6. Call GrpKayBul(Hane)
  7. Worksheets(5).Range("D6").Value = Worksheets(1).Range("A" & Kyt)
  8. Worksheets(5).Range("D7").Value = Worksheets(1).Range("B" & Kyt)
  9. Worksheets(5).Range("D8").Value = Worksheets(1).Range("C" & Kyt)
  10. Worksheets(5).Range("D9").Value = Worksheets(1).Range("D" & Kyt)
  11. End Sub
  12. Sub GrpKayBul(OdakKyt As Long)
  13. Dim Sayac As Long
  14. For Sayac = OdakKyt To 1 Step -1
  15. If Worksheets(1).Range("A" & Sayac) <> "" Then Kyt = Sayac: Exit Sub
  16. Next Sayac
  17. End Sub


ile LİSTE deki adi soyadina odaklanma il MAKBUZ'a ait ilk bolum doldurulur.



  Alıntı
Bu mesajı beğenenler:
#3
sayfalar arası bağlantıyı manuel olarak tanımlayıp bilgilerin otomatik gelmesini sağlayabilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#4
Alakanıza teşekkürler beceremedim maalesefNah



  Alıntı
Bu mesajı beğenenler:
#5
İstediğimi örnekle gönderiyorum.

LİSTE Sayfasında Makbuz Yazdır diye Bir düğme atayarak şu kodu kullandım
Sub MAKBUZ()
Sheets("MAKBUZ").Select
End Sub

Bu komut uygulanınca Makbuz Sayfasına gidiyor. Ancak; Tam olarak istediğim şu:
Düğmeye tıklayınca;
LİSTE sayfasındaki aktif hücre S sütununda ise MAKBUZ Sayfasındaki G2 hücresine aktif sayfadaki hücrenin satır numarasını,
LİSTE sayfasındaki aktif hücre T sütununda ise MAKBUZ Sayfasındaki H2 hücresine aktif sayfadaki hücrenin satır numarasını,
LİSTE sayfasındaki aktif hücre U sütununda ise MAKBUZ Sayfasındaki I2 hücresine aktif sayfadaki hücrenin satır numarasını,
LİSTE sayfasındaki aktif hücre V sütununda ise MAKBUZ Sayfasındaki J2 hücresine aktif sayfadaki hücrenin satır numarasını,
LİSTE sayfasındaki aktif hücre Y sütununda ise MAKBUZ Sayfasındaki K2 hücresine aktif sayfadaki hücrenin satır numarasını,
YAZIP Makbuz sayfasını yazıcıya göndersin istiyorum.

Mümkün müdür?



  Alıntı
Bu mesajı beğenenler:
#6
(09-10-2015, 00:57)aslanbey41 demiş ki: Alakanıza teşekkürler beceremedim maalesefNah
[attachment=17744] Incelenebilir.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
access-sql-9 lütfen yardımcı olun YunusEmreAykut 0 805 01-08-2012, 11:30
Son Mesaj: YunusEmreAykut

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi