- Katılım
- 5 Eylül 2007
- Mesajlar
- 1,247
- Excel Vers. ve Dili
- ofis 2010
- Altın Üyelik Bitiş Tarihi
- 21-07-2024
iyi akşamlar; Form sitesi sakinleri yardımıyla çalışma hazırladım. Bir ilave yapmam gerekiyor. Epey denedim yapamadım. Makro A sütunu ve B-BE satırının kesişim yerine tıklandığında İP PERDE çalışma sayfasındak ü ürünün üzerine gidiyor. Bunun yanında aynı üründen , A1 hücresindeki -4142, 6, 44 gibi farklı depoda olabiliyor. Bu seçime A1 hücresindeki Depo seçeneğinide katarak makroyu çalıştırmak istiyorum. Teşekkürler.
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Bak As Integer
Dim Cinsi As String
Dim Rengi As String
Cancel = True
Cinsi = Cells(Target.Row, "A").Text
Rengi = Cells(1, Target.Column).Text
If Intersect(Target, Range("B:AE")) Is Nothing Or Target.Row = 1 Then Exit Sub
With Worksheets("İP PERDELER")
For Bak = 5 To .Cells(Rows.Count, "C").End(3).Row
Dim i
i = .Cells(Bak, "B").Text
i = .Cells(Bak, "C").Text
If .Cells(Bak, "B").Text = Cinsi And .Cells(Bak, "C").Text = Rengi Then
.Activate
.Cells(Bak, "D").Activate
Exit Sub
End If
Next
End With
MsgBox "Cinsi: '" & Cinsi & "' Rengi: '" & Rengi & "' olan kayıt bulunamadı.", vbExclamation
End Sub
Ekli dosyalar
-
61 KB Görüntüleme: 13
-
109.3 KB Görüntüleme: 10
-
118.1 KB Görüntüleme: 10