Soru makro ile klavyeden tab kullandırmak hak.

[bycakir]

iyi günler aşağıdaki kodda XXXXX yazan yerde tab kullandırmam gerekıyor fakat hiç bir şekilde basaramadım. yardımlarınızı beklıyorum

vbTab
SendKeys ("{TAB}")
Application.SendKeys("TAB")
bunları kendimce denedim ama başarılı lamadım tam olarak XXXX olan yerde tab atmalı aksi durumla ürünlerin tanımları gelmiyor sadece ürün numarasını bir onceki kısma yazıp tab a basınca geliyor.

Sub satinalma()
  With CreateObject("Scripting.Dictionary")
        ver = "!IFS.COPYOBJECT": GoSub ekle
        ver = "$LU=PurchaseReqLinePart": GoSub ekle
        ver = "$VIEW=PURCHASE_REQ_LINE_PART": GoSub ekle

        For i = 7 To Range("B" & Rows.Count).End(xlUp).Row
            ver = "$RECORD=!" & vbLf & "-$4:=" & Range("B" & i) & XXXXX vbLf & "-$6:=" & _
                 Range("I" & i) & vbLf & "-$9:=" & Range("O" & 1) + 10 & vbLf & "-"
            GoSub ekle
        Next

        Set dataObject = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        dataObject.SetText Join(.items, "")
        dataObject.PutInClipboard
        Set dataObject = Nothing
        
        MsgBox "Kayıt hazırlanmıştır" & vbCrLf & "Lütfen IFS nin ilgili bölümüne sağ click" & vbCrLf & "Satırı Yapıştır" & vbCrLf & "Komunutunu kullanın...", vbInformation, "..::Ömür ÇAKIR::.."
    
       Exit Sub
ekle:
        .Item(.Count + 1) = ver & vbCrLf
        Return
End With
    
End Sub

 

[necati]

Merhaba,
Tab tuşunun vba kodu şudur: vbTab
& vbTab & vbLf & şeklinde deneyebilirsiniz.