Fatura

[mest3651]

Merhaba. Arkadaşlar ekte yüklediğim dosyada yapmak istediğim tekli fatura sayfasında l2 hücresine aday numarasını yazıp adayı listeliyorum. N2 hücresine yazdığım miktarı fatura listesinde aday numarasına göre bulup
f7:j7 hücreleri ve arasındaki hücrelere sırasıyla n2 hücresine yazdığım miktarı kalıcı olarak yazmasını istiyorum. şimdiden teşekkürler.

 

[fireman64]

Tekli fatura sayfasına bir buton ekleyip aşağıdaki kodları butona bağlayın.

  On Error GoTo hata
SONUC = [L2].Value
   Sheets("FATURA LİSTE").Select
Set FC2 = Sheets("FATURA LİSTE").Columns("B").Find(What:=SONUC)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
  ActiveCell.Offset(0, 4) = Sheets("TEKLİ FATURA").[N2].Value
     ActiveCell.Offset(0, 5) = Sheets("TEKLİ FATURA").[N2].Value
        ActiveCell.Offset(0, 6) = Sheets("TEKLİ FATURA").[N2].Value
            ActiveCell.Offset(0, 7) = Sheets("TEKLİ FATURA").[N2].Value
                ActiveCell.Offset(0, 8) = Sheets("TEKLİ FATURA").[N2].Value
Exit Sub
hata:
MsgBox ("yok")
   Sheets("TEKLİ FATURA").Select
End Sub

 

[mest3651]

Sayın hocam çok saol. invalide outside procodure hatası veriyor.

 

[mest3651]

fatura

Merhabalar. Bu kodda f7 ve j8 arasındaki hücrelerin hepsine miktarı yazıyor.Mesala f7 hücresi boşsa miktarı f 7 hücresine yazsın. doluysa g7 öyle devam etmesi gerekiyor. yani farklı tarihlerde farklı fatura kesiliyor. işin içinden çıkamadım. Çok teşşekürler.

 

[halilyor]

https://www.youtube.com/watch?v=h5_L8hD0EHs

 

[mest3651]

Merhaba .benim yüklediğim dosya üzerinden yapılabilir mi

 

[fireman64]

Application.ScreenUpdating = False
On Error GoTo hata
SONUC = [L2].Value
   Sheets("FATURA LİSTE").Select
Set FC2 = Sheets("FATURA LİSTE").Columns("B").Find(What:=SONUC)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
  If ActiveCell.Offset(0, 4).Value = Empty Then
  ActiveCell.Offset(0, 4) = Sheets("TEKLİ FATURA").[N2].Value
 Exit Sub
 End If
    If ActiveCell.Offset(0, 5).Value = Empty Then
     ActiveCell.Offset(0, 5) = Sheets("TEKLİ FATURA").[N2].Value
      Exit Sub
       End If
        
        If ActiveCell.Offset(0, 6).Value = Empty Then
        ActiveCell.Offset(0, 6) = Sheets("TEKLİ FATURA").[N2].Value
          Exit Sub
        End If
     If ActiveCell.Offset(0, 7).Value = Empty Then
    ActiveCell.Offset(0, 7) = Sheets("TEKLİ FATURA").[N2].Value
       Exit Sub
     End If
     If ActiveCell.Offset(0, 8).Value = Empty Then
     ActiveCell.Offset(0, 8) = Sheets("TEKLİ FATURA").[N2].Value
       Exit Sub
     End If
     
Exit Sub
hata:
MsgBox ("Aday Numarasu Bulunamadı")
   Sheets("TEKLİ FATURA").Select
End Sub

 

[mest3651]

çok saolun.Teşşekür ederim.