Otomatık yazdırma

[trturkendertr]

Stok adını yazdıgımda otomatık olarak urun nosunu ve bırımım seceneGını yazmasını ıstıyorum kendı cabalarımla yapmaya calsıtım ama olmadı bunun yuzunden uykularım kactı yardımcı olurmusunuz orneh te var

USTALAR BIR KAC DA DEGISIKLIK YAPABILIRSENIZ SEVINIRIM TABLOYA GORE IYI CALSIMALAR

 

[xp45s]

örnek ekli degil..

 

[trturkendertr]

islem tarihinide otomatik yapabilirsek cok iyi olur

 

[halit3]

1-dosyanın kod bölümü şifreli
2-n0 ve birimi nerden alıp yazacak


anladığım kadarı ile yapmaya çalıştım sorun net seğil .

bunu sayfanın kod bölümüne ekle hücreye yazdığın değer sonrası entere tıkladığın zaman kod çalışacak

Private Sub Worksheet_Change(ByVal Target As Range)
n = ActiveWindow.Selection.Row - 1
aranan1 = Trim(Sheets("ANA").Cells(n, 1).Value)
For i = 80 To Worksheets("DEPODURUM").[a65536].End(3).Row
aranan2 = Trim(Sheets("DEPODURUM").Cells(i, 1).Value)
If aranan2 = aranan1 Then
Sheets("ANA").Cells(n, 3).Value = Sheets("DEPODURUM").Cells(i, 1).Value
Sheets("ANA").Cells(n, 5).Value = Sheets("DEPODURUM").Cells(i, 2).Value
i = Worksheets("DEPODURUM").[a65536].End(3).Row
End
Exit Sub
End If
Next i
End Sub

 

[trturkendertr]

bu dosya yi ben bu siteden aldim sifre konusuda bilgim yok kendime gore duzenlemeye calsitim
ve emeginiz ICIN TESEKKUR EDERIM SITE GERCEKTEN COK IYI