VBA KODU İLE HÜCRE BULMA VE YAZDIRMA

[aliozturk55]

Merhabalar,
Bir konuda yardıma ihtiyacım var. Makbuz bilgilerini kaydettiğim bir dosyam var. Makbuz bilgilerini gir dediğimde açılan userform da makbuz numarasını yazdığımda onu ali-sedat-recep sayflarında aratıp bulduğunda tarihi tarih yerine tutarı tutar yerine yazdırmak istiyorum bu konuda yardımlarınızı talep ediyorum şimdiden teşekkür ederim.

deneme dosyası ektedir.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub cmdbutton_makbuz_kaydet_Click()
    Dim Sayfa As Worksheet, Bul As Range, Say As Integer
    
    For Each Sayfa In ThisWorkbook.Worksheets
        Set Bul = Sayfa.Cells.Find(TextBox_makbuz, , , xlWhole)
        If Not Bul Is Nothing Then
            Bul.Offset(0, 1) = CDate(TextBox2)
            Bul.Offset(0, 2) = CDbl(TextBox3)
            Say = Say + 1
        End If
    Next
            
    If Say = 0 Then
        MsgBox "Makbuz no bulunamadı!", vbCritical
    Else
        MsgBox "Kayıt işlemi tamamlanmıştır.", vbInformation
    End If
End Sub

 

[aliozturk55]

Merhaba,
Tam aradığım şey bu ama bunu başka çalışma kitabında nasıl arama yaptırıcam çalışma kitabı adının yazma yeri yok

 

[Korhan Ayhan]

İlk mesajınızla son mesajınızı tekrar okumanızı rica edeceğim.

"Başka çalışma kitabı" ifadesini ben göremedim...

 

[aliozturk55]

Korhan Bey,
Kod tam istediğim gibi deneme sayfasında çalışıyor doğru fakat dosyanın orjinalinde 8-9 sayfa var kodları orjinal dosyama kopyaladım orda çalışmıyor onu demek istedim.

 

[Korhan Ayhan]

Kod bütün sayfaları döngüye alıyor. Eksik işlem yapması verilerinizle ilgili olabilir.

Ayrıca kullandığınız ifadeleri dikkatli seçmelisiniz. Cevap verecek kişileri yanlış yoruma sürüklüyor.

 

[fzcn]

Merhaba,
Excel de 1. sayfada A5 hücresinde yer alan ABC değerine tıkladığımda 2.sayfanın B5 hücresine gitmesini ve ABC değerini yazmasını istiyorum.
Bunu 1.sayfadaki A5,A6,A7.. A20 satılarındaki tüm değerler için, bu değerlere tıkladığımda gitsin 2.sayfadaki B5 hücresine yazmasını istiyorum.
Bunu nasıl yapabilirim, yardımcı olabilir misiniz?