Sipariş tarih bilgisinin makro ile çekilmesi

[kemal turan]

Merhaba Uzmanlarımız,
Üstadlar forumda aradım bir şeyler buldum uyarlamaya çalıştım fakat başaramadım.
Siparişi verilen bir ürünün sipariş tarihinin makro ile çekilmesine ihtiyacım var.
Ek dosyada gerekli açıklamayı yaptım.
Teşekkür ederim.

 

[Muhammet Okumuş]

Merhaba,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
son = Range("P10000").End(3).Row
If Intersect(Range("P6" & son), Target) Is Nothing Then Exit Sub
If ActiveCell = "" Then
Range("P3") = ""
Exit Sub
End If
Range("P3") = WorksheetFunction.Index(Sheets("SİPARİŞ").Range("A1:A10000"), WorksheetFunction.Match(ActiveCell, Sheets("SİPARİŞ").Range("C1:C10000"), 0))
End Sub

kodu deneyiniz.

 

[kemal turan]

Sn Muokumuş İyi akşamlar
İlginiz ve emeğiniz için çok teşekür ederim.
Kodumuzun bu bölümünde küçük bir hata vardı (Range("A 1:A10000")), A ile 1 in arası açık kalmış onuda düzelterek çalıştırdım.
Teşekür eder, hayırlı günler temenni ederim.
selametle Kalın.

 

[Muhammet Okumuş]

Hocam o hata forumdan kaynaklanıyor. Boşluğu kendisi eklemiş.
Rica ederim, İyi çalışmalar.

 

[kemal turan]

Sn.Muokumuş hocam günaydın,
Seçilen hücreye karşılık sipariş sayfasında herhangi bir veri yok ise;
"Run-time error'1004':"
"WorksheetFuctıon sınıfının Matc özelliği alınamıyor"
hata uyarısı veriyor.
Kodumuzu eğer veri yok ise "SİPARİŞ YOK" bilgisini (P3) hücresine yazdırabilirmiyiz.
Teşekkürler

 

[asi_kral]

Merhaba
Bunu dener misiniz_?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
son = Range("P10000").End(3).Row
If Intersect(Range("P6:P" & son), Target) Is Nothing Then Exit Sub
On Error GoTo hAtA
If Target = "" Then
Range("P3") = ""
Exit Sub
End If
Range("P3") = WorksheetFunction.Index(Sheets("SİPARİŞ"). _
Range("A1:A10000"), WorksheetFunction.Match(Target, _
Sheets("SİPARİŞ").Range("C1:C10000"), 0))
Exit Sub
hAtA: MsgBox Target & vbLf & "DEĞERİ YOK"
End Sub

 

[kemal turan]

Sn.Asi kral ,
Çok teşekkür ederim.Msgbox çok şık olmuş.
Selametle kalınız

 

[asi_kral]

Sn.Asi kral ,
Çok teşekkür ederim.Msgbox çok şık olmuş.
Selametle kalınız

Kolay Gelsin.