Stok Girişlerinde Yardım

[calecale]

If Range("d3").Text = "TD" Then
    Range("h3") = "TD"
    Range("h3").Select
    Exit Sub
    End If

Herkese iyi geceler.

Stok girişi yaptığım bir excel tablom var. Barkod okuyucu ile H3 hücresine giriş yapıyorum.

Yukarıdaki kod, kaydı yaptıktan sonra eğer d3 hücresinde TD yazıyorsa h3 hücresine de yazıyor. Barkod ile giriş yaptığım için h3 e çift tıklayıp barkodu okutuyorum. Barkodu TD nin sağına doğru okuturyorum.Yani barkod numarasının başına TD eklemiş oluyorum.

Yapmak istediğim kaydı yaptıktan sonra h3 e td yazsın ve imleç d harfin sağında seçili kalsın.

 

[calecale]

Sub STOKKAYDET()
'
' STOKKAYDET Makro
'

'
   Calculate

    If Range("H3") = "" Then
    
    MsgBox "LÜTFEN BARKOD GİRİNİZ."
    
    Exit Sub
    End If
     
    
     
    If Range("ı4") > 0 Then
    MsgBox "BU BARKOD DAHA ÖNCE KAYDEDİLMİŞTİR."
    
    Exit Sub
    End If
    
    Satır = Sheets("STOK GİRİŞ").Range("B1000000").End(3).Row + 1
    Sheets("STOK GİRİŞ").Cells(Satır, "B") = Satır - 10
    Sheets("STOK GİRİŞ").Cells(Satır, "C") = Range("C3").Value
    Sheets("STOK GİRİŞ").Cells(Satır, "D") = Range("D3").Text
    Sheets("STOK GİRİŞ").Cells(Satır, "E") = Range("E3").Text
    Sheets("STOK GİRİŞ").Cells(Satır, "F") = Range("F3").Value
    Sheets("STOK GİRİŞ").Cells(Satır, "G") = Range("G3").Value
    [COLOR="Red"][B] If Range("d3").Text = "TD" Then
    Sheets("STOK GİRİŞ").Cells(Satır, "H") = "TD" & Range("H3").Value
    Else
    Sheets("STOK GİRİŞ").Cells(Satır, "H") = Range("H3").Value
    End If[/B][/COLOR]
    
     Range("h3").ClearContents
    Range("h3").Select
    Calculate
    
    
    
    
End Sub

Kodu komple değiştirerek D3 de TD yazıyorsa H3 e girdiğim Barkodun başına TD otomatik eklenecek şekilde çözüme ulaştım.

Herkese iyi akşamlar..