VBA Nerede hata yapıyorum?

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

VBA Nerede hata yapıyorum?

İleti#1)  kdr20_88 » 08 Eyl 2020 15:56

Merhaba,
"Ürün Giriş" sayfasında C2:C21 arasında değişiklik olunca aşağıdaki düşeyara formüller çalışıyor.
İkinci işlem olarak ise E2:K21 arasında değişiklik olunca "Gizli" sayfasındaki "PivotTable" isimli tablonun yenilensin istiyorum ama yapamadım. Yardım eder misiniz.

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C2:C21]) Is Nothing Then Exit Sub
If Worksheets("Ürün Giriş").Range("C2") > 0 Then
Worksheets("Ürün Giriş").Range("D2") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C2").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D2:K2").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C3") > 0 Then
Worksheets("Ürün Giriş").Range("D3") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C3").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D3:K3").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C4") > 0 Then
Worksheets("Ürün Giriş").Range("D4") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C4").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D4:K4").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C5") > 0 Then
Worksheets("Ürün Giriş").Range("D5") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C5").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D5:K5").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C6") > 0 Then
Worksheets("Ürün Giriş").Range("D6") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C6").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D6:K6").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C7") > 0 Then
Worksheets("Ürün Giriş").Range("D7") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C7").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D7:K7").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C8") > 0 Then
Worksheets("Ürün Giriş").Range("D8") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C8").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D8:K8").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C9") > 0 Then
Worksheets("Ürün Giriş").Range("D9") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C9").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D9:K9").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C10") > 0 Then
Worksheets("Ürün Giriş").Range("D10") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C10").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D10:K10").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C11") > 0 Then
Worksheets("Ürün Giriş").Range("D11") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C11").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D11:K11").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C12") > 0 Then
Worksheets("Ürün Giriş").Range("D12") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C12").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D12:K12").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C13") > 0 Then
Worksheets("Ürün Giriş").Range("D13") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C13").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D13:K13").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C14") > 0 Then
Worksheets("Ürün Giriş").Range("D14") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C14").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D14:K14").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C15") > 0 Then
Worksheets("Ürün Giriş").Range("D15") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C15").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D15:K15").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C16") > 0 Then
Worksheets("Ürün Giriş").Range("D16") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C16").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D16:K16").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C17") > 0 Then
Worksheets("Ürün Giriş").Range("D17") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C17").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D17:K17").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C18") > 0 Then
Worksheets("Ürün Giriş").Range("D18") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C18").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D18:K18").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C19") > 0 Then
Worksheets("Ürün Giriş").Range("D19") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C19").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D19:K19").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C20") > 0 Then
Worksheets("Ürün Giriş").Range("D20") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C20").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D20:K20").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C21") > 0 Then
Worksheets("Ürün Giriş").Range("D21") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C21").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D21:K21").ClearContents
End If
Worksheets("Gizli").PivotTables("PivotTable").PivotCache.Refresh
End Sub
Kullanıcı avatarı
kdr20_88
Yeni Başlamış
 
Kayıt: 11 Arl 2014 11:22
Meslek: Muhasebe
Yaş: 32
İleti: 72
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENZİLİ/MERKEZ

Cevap: VBA Nerede hata yapıyorum?

İleti#2)  Miraç CAN » 08 Eyl 2020 16:18

İnceleyin:
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C21]) Is Nothing Then
If Worksheets("Ürün Giriş").Range("C2") > 0 Then
Worksheets("Ürün Giriş").Range("D2") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C2").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D2:K2").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C3") > 0 Then
Worksheets("Ürün Giriş").Range("D3") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C3").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D3:K3").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C4") > 0 Then
Worksheets("Ürün Giriş").Range("D4") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C4").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D4:K4").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C5") > 0 Then
Worksheets("Ürün Giriş").Range("D5") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C5").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D5:K5").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C6") > 0 Then
Worksheets("Ürün Giriş").Range("D6") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C6").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D6:K6").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C7") > 0 Then
Worksheets("Ürün Giriş").Range("D7") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C7").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D7:K7").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C8") > 0 Then
Worksheets("Ürün Giriş").Range("D8") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C8").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D8:K8").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C9") > 0 Then
Worksheets("Ürün Giriş").Range("D9") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C9").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D9:K9").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C10") > 0 Then
Worksheets("Ürün Giriş").Range("D10") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C10").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D10:K10").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C11") > 0 Then
Worksheets("Ürün Giriş").Range("D11") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C11").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D11:K11").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C12") > 0 Then
Worksheets("Ürün Giriş").Range("D12") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C12").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D12:K12").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C13") > 0 Then
Worksheets("Ürün Giriş").Range("D13") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C13").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D13:K13").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C14") > 0 Then
Worksheets("Ürün Giriş").Range("D14") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C14").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D14:K14").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C15") > 0 Then
Worksheets("Ürün Giriş").Range("D15") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C15").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D15:K15").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C16") > 0 Then
Worksheets("Ürün Giriş").Range("D16") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C16").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D16:K16").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C17") > 0 Then
Worksheets("Ürün Giriş").Range("D17") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C17").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D17:K17").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C18") > 0 Then
Worksheets("Ürün Giriş").Range("D18") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C18").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D18:K18").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C19") > 0 Then
Worksheets("Ürün Giriş").Range("D19") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C19").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D19:K19").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C20") > 0 Then
Worksheets("Ürün Giriş").Range("D20") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C20").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D20:K20").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C21") > 0 Then
Worksheets("Ürün Giriş").Range("D21") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C21").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D21:K21").ClearContents
End If
ElseIf Not Intersect(Target, [K2:K21]) Is Nothing Then Worksheets("Gizli").PivotTables("PivotTable").PivotCache.Refresh
End If
End Sub
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 699
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Cevap: VBA Nerede hata yapıyorum?

İleti#3)  kdr20_88 » 08 Eyl 2020 16:56

Miraç CAN yazdı:İnceleyin:
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C21]) Is Nothing Then
If Worksheets("Ürün Giriş").Range("C2") > 0 Then
Worksheets("Ürün Giriş").Range("D2") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C2").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D2:K2").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C3") > 0 Then
Worksheets("Ürün Giriş").Range("D3") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C3").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D3:K3").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C4") > 0 Then
Worksheets("Ürün Giriş").Range("D4") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C4").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D4:K4").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C5") > 0 Then
Worksheets("Ürün Giriş").Range("D5") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C5").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D5:K5").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C6") > 0 Then
Worksheets("Ürün Giriş").Range("D6") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C6").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D6:K6").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C7") > 0 Then
Worksheets("Ürün Giriş").Range("D7") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C7").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D7:K7").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C8") > 0 Then
Worksheets("Ürün Giriş").Range("D8") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C8").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D8:K8").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C9") > 0 Then
Worksheets("Ürün Giriş").Range("D9") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C9").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D9:K9").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C10") > 0 Then
Worksheets("Ürün Giriş").Range("D10") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C10").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D10:K10").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C11") > 0 Then
Worksheets("Ürün Giriş").Range("D11") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C11").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D11:K11").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C12") > 0 Then
Worksheets("Ürün Giriş").Range("D12") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C12").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D12:K12").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C13") > 0 Then
Worksheets("Ürün Giriş").Range("D13") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C13").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D13:K13").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C14") > 0 Then
Worksheets("Ürün Giriş").Range("D14") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C14").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D14:K14").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C15") > 0 Then
Worksheets("Ürün Giriş").Range("D15") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C15").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D15:K15").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C16") > 0 Then
Worksheets("Ürün Giriş").Range("D16") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C16").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D16:K16").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C17") > 0 Then
Worksheets("Ürün Giriş").Range("D17") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C17").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D17:K17").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C18") > 0 Then
Worksheets("Ürün Giriş").Range("D18") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C18").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D18:K18").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C19") > 0 Then
Worksheets("Ürün Giriş").Range("D19") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C19").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D19:K19").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C20") > 0 Then
Worksheets("Ürün Giriş").Range("D20") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C20").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D20:K20").ClearContents
End If
If Worksheets("Ürün Giriş").Range("C21") > 0 Then
Worksheets("Ürün Giriş").Range("D21") = Application.WorksheetFunction.VLookup(Worksheets("Ürün Giriş").Range("C21").Value, Worksheets("Ürünler").Range("A:C"), 2, 0)
Else: Worksheets("Ürün Giriş").Range("D21:K21").ClearContents
End If
ElseIf Not Intersect(Target, [K2:K21]) Is Nothing Then Worksheets("Gizli").PivotTables("PivotTable").PivotCache.Refresh
End If
End Sub


Miraç Abi sitede bir çok soruma sen çözüm buluyorsun. Bu da oldu.
Allah razı olsun.
Kullanıcı avatarı
kdr20_88
Yeni Başlamış
 
Kayıt: 11 Arl 2014 11:22
Meslek: Muhasebe
Yaş: 32
İleti: 72
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENZİLİ/MERKEZ

Cevap: VBA Nerede hata yapıyorum?

İleti#4)  Miraç CAN » 08 Eyl 2020 17:04

:shock: hiç farkında değilim, senden de kardeşim. --)(
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 699
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: VBA Nerede hata yapıyorum?

İleti#5)  kdr20_88 » 09 Eyl 2020 11:54

Miraç abi aşağıda "düşey ara sonucu 0 dan büyükse devam et" değilse "e29 hücresine sonuç bulunamadı" yazsın dedim ama neden olmadı?

Kod: Tümünü seç
If Application.WorksheetFunction.VLookup(Worksheets("Konşimento Talimatı").Range("B29").Value, Worksheets("Ürün Giriş").Range("A:M"), 4, 0) > 0 Then
Worksheets("Konşimento Talimatı").Range("B30").Value = Application.WorksheetFunction.VLookup(Worksheets("Konşimento Talimatı").Range("B29").Value, Worksheets("Ürün Giriş").Range("A:M"), 4, 0)
Worksheets("Konşimento Talimatı").Range("B31").Value = Application.WorksheetFunction.VLookup(Worksheets("Konşimento Talimatı").Range("B29").Value, Worksheets("Ürün Giriş").Range("A:M"), 12, 0)
Worksheets("Konşimento Talimatı").Range("B32").Value = Application.WorksheetFunction.VLookup(Worksheets("Konşimento Talimatı").Range("B29").Value, Worksheets("Ürün Giriş").Range("A:M"), 5, 0)
Worksheets("Konşimento Talimatı").Range("B33").Value = Application.WorksheetFunction.VLookup(Worksheets("Konşimento Talimatı").Range("B29").Value, Worksheets("Ürün Giriş").Range("A:M"), 6, 0)
Worksheets("Konşimento Talimatı").Range("B34").Value = Application.WorksheetFunction.VLookup(Worksheets("Konşimento Talimatı").Range("B29").Value, Worksheets("Ürün Giriş").Range("A:M"), 10, 0) & " " & Application.WorksheetFunction.VLookup(Worksheets("Konşimento Talimatı").Range("B10").Value, Worksheets("Ürün Giriş").Range("A:M"), 11, 0)
Else: Worksheets("Konşimento Talimatı").Range("E29").Value = "düşey ara sonuç bulamadı"
End If
Kullanıcı avatarı
kdr20_88
Yeni Başlamış
 
Kayıt: 11 Arl 2014 11:22
Meslek: Muhasebe
Yaş: 32
İleti: 72
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENZİLİ/MERKEZ

Cevap: VBA Nerede hata yapıyorum?

İleti#6)  Miraç CAN » 11 Eyl 2020 14:52

Yeni fark ettim yeni bir soru yazdığını, ama ayrı bir başlıkta çözüldü sanırım bu konu.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 699
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: VBA Nerede hata yapıyorum?

İleti#7)  kdr20_88 » 11 Eyl 2020 15:08

Miraç CAN yazdı:Yeni fark ettim yeni bir soru yazdığını, ama ayrı bir başlıkta çözüldü sanırım bu konu.

Evet abi diğer konu ile birleşti ve çözüldü.

Sana direk ulaşmam mümkün mü abi?
Her takıldığım yerde forum da konu açmadan önce bir sürü araştırma yapıyorum, bulamazsam forumda konu açıyorum derken çok vakit alıyor. Oysa sen gibi işi bilen biri pat diye çözer :)
Kullanıcı avatarı
kdr20_88
Yeni Başlamış
 
Kayıt: 11 Arl 2014 11:22
Meslek: Muhasebe
Yaş: 32
İleti: 72
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENZİLİ/MERKEZ

Cevap: VBA Nerede hata yapıyorum?

İleti#8)  Miraç CAN » 11 Eyl 2020 15:29

Diğer konu kilitlenmiş, en son eklediğin kodları biraz sadeleştirdim.
Göz yormasın, gereksiz kalabalık ortadan kalksın, incelersin.
Kod: Tümünü seç
Dim Konşimento As Worksheet, Sütun(11 To 15) As Single
Dim AranacakAlan As Range, Aranan As Range, Rw%
Set Konşimento = Worksheets("Konşimento Talimatı")
Set AranacakAlan = Worksheets("Ürün Giriş").Range("A:M"): Set Aranan = Konşimento.Range("B10")
Sütun(11) = 13: Sütun(12) = 4: Sütun(13) = 12: Sütun(14) = 5: Sütun(15) = 6
If Application.WorksheetFunction.CountIf(Worksheets("Ürün Giriş").Columns(1), Aranan) > 0 Then
    Konşimento.Rows("11:16").EntireRow.Hidden = False
    For Rw = 11 To 15
        Konşimento.Cells(Rw, 2).Value = Application.WorksheetFunction.VLookup(Aranan.Value, AranacakAlan, Sütun(Rw), 0)
    Next Rw
    Konşimento.Range("B16").Value = Application.WorksheetFunction.VLookup(Aranan.Value, AranacakAlan, 10, 0) & _
        " " & Application.WorksheetFunction.VLookup(Aranan.Value, AranacakAlan, 11, 0)
Else
    Konşimento.Rows("11:16").EntireRow.Hidden = True
End If


Vaktim oldukça burada oluyorum zaten, yardımcı olmaya özen gösteririm.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 699
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Cevap: VBA Nerede hata yapıyorum?

İleti#9)  kdr20_88 » 11 Eyl 2020 16:52

Abi baktım baktım kafam karıştı. Anlayamıyorum henüz bunları ben :) Ama ilerisi için rehber olacaktır bana.
Teşekkürler.

Miraç CAN yazdı:Diğer konu kilitlenmiş, en son eklediğin kodları biraz sadeleştirdim.
Göz yormasın, gereksiz kalabalık ortadan kalksın, incelersin.
Kod: Tümünü seç
Dim Konşimento As Worksheet, Sütun(11 To 15) As Single
Dim AranacakAlan As Range, Aranan As Range, Rw%
Set Konşimento = Worksheets("Konşimento Talimatı")
Set AranacakAlan = Worksheets("Ürün Giriş").Range("A:M"): Set Aranan = Konşimento.Range("B10")
Sütun(11) = 13: Sütun(12) = 4: Sütun(13) = 12: Sütun(14) = 5: Sütun(15) = 6
If Application.WorksheetFunction.CountIf(Worksheets("Ürün Giriş").Columns(1), Aranan) > 0 Then
    Konşimento.Rows("11:16").EntireRow.Hidden = False
    For Rw = 11 To 15
        Konşimento.Cells(Rw, 2).Value = Application.WorksheetFunction.VLookup(Aranan.Value, AranacakAlan, Sütun(Rw), 0)
    Next Rw
    Konşimento.Range("B16").Value = Application.WorksheetFunction.VLookup(Aranan.Value, AranacakAlan, 10, 0) & _
        " " & Application.WorksheetFunction.VLookup(Aranan.Value, AranacakAlan, 11, 0)
Else
    Konşimento.Rows("11:16").EntireRow.Hidden = True
End If


Vaktim oldukça burada oluyorum zaten, yardımcı olmaya özen gösteririm.
Kullanıcı avatarı
kdr20_88
Yeni Başlamış
 
Kayıt: 11 Arl 2014 11:22
Meslek: Muhasebe
Yaş: 32
İleti: 72
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENZİLİ/MERKEZ

Cevap: VBA Nerede hata yapıyorum?

İleti#10)  kdr20_88 » 11 Eyl 2020 16:53

Toplu satır gizlerken araya virgül olmuyor sanırım, ne koymalıyım?

Kod: Tümünü seç
Worksheets("Konşimento Talimatı").Rows ("10, 17, 23, 29, 35").EntireRow.Hidden = True
Kullanıcı avatarı
kdr20_88
Yeni Başlamış
 
Kayıt: 11 Arl 2014 11:22
Meslek: Muhasebe
Yaş: 32
İleti: 72
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENZİLİ/MERKEZ

Cevap: VBA Nerede hata yapıyorum?

İleti#11)  Miraç CAN » 12 Eyl 2020 07:04

Worksheets("Konşimento Talimatı").Range("10:10,17:17,23:23,29:29,35:35").EntireRow.Hidden = True
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 699
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Cevap: VBA Nerede hata yapıyorum?

İleti#12)  kdr20_88 » 14 Eyl 2020 13:53

Miraç CAN yazdı:Worksheets("Konşimento Talimatı").Range("10:10,17:17,23:23,29:29,35:35").EntireRow.Hidden = True

Tamam abi teşekkür ederim.

Peki A1:Z1 arasında, dolu olan hücreleri bul ve aralarına "," virgül ekleyerek B1 e yaz nasıl diyebilirim.
Ben A1&","&B1&","&C1&","&D1&","&E1&","&F1&","&... şeklinde yaptım ama örneğin A1:C1 arası dolu ise sonrasında ,,,,, şeklinde devam ediyor haliyle. Yani sadece dolu satırların arasına virgül koymak istiyorum. Onu beceremedim.
Kullanıcı avatarı
kdr20_88
Yeni Başlamış
 
Kayıt: 11 Arl 2014 11:22
Meslek: Muhasebe
Yaş: 32
İleti: 72
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENZİLİ/MERKEZ

Cevap: VBA Nerede hata yapıyorum?

İleti#13)  Miraç CAN » 14 Eyl 2020 16:12

Kod: Tümünü seç
[A2] = Empty
For Each Rng In Range("A1:Z1").SpecialCells(xlCellTypeConstants)
    [A2] = [A2] & Rng & ","
Next Rng
[A2] = Mid([A2], 1, Len([A2]) - 1)
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 699
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Cevap: VBA Nerede hata yapıyorum?

İleti#14)  kdr20_88 » 14 Eyl 2020 19:11

Abi anlayamadığım için sayfama göre yorumlayamadım.
Worksheets("Veri Giriş").Range("B29:P29") arasındaki dolu hücreleri bulup,
Worksheets("Invoice").Range("B49") a yazdırmak istiyorum.

Verdiğin örnekten çözerim sandım da çözemedim. Son kez yardım eder misin. Birde "Next Rng" de ne oluyor kısaca anlatabilir misin?

Miraç CAN yazdı:
Kod: Tümünü seç
[A2] = Empty
For Each Rng In Range("A1:Z1").SpecialCells(xlCellTypeConstants)
    [A2] = [A2] & Rng & ","
Next Rng
[A2] = Mid([A2], 1, Len([A2]) - 1)
Kullanıcı avatarı
kdr20_88
Yeni Başlamış
 
Kayıt: 11 Arl 2014 11:22
Meslek: Muhasebe
Yaş: 32
İleti: 72
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENZİLİ/MERKEZ

Cevap: VBA Nerede hata yapıyorum?

İleti#15)  Miraç CAN » 15 Eyl 2020 07:11

Kod: Tümünü seç
Dim Hedef As Range, Alan As Range 'Değişken tanımları. Başvuruları, işlemler daha sade/pratik olsun diye isimleri kısaltmak için
Set Hedef = Worksheets("Invoice").Range("B49") 'Yazılacak hücre ayarla
Set Alan = Worksheets("Veri Giriş").Range("B29:P29") 'Veri alınacak hücreleri ayarla
Hedef = Empty 'Yazılacak hücre içeriğini boş yap
For Each Rng In Alan.SpecialCells(xlCellTypeConstants) 'Alandaki dolu hücreleri bul ve Rng içerisinde döndür.
    Hedef = Hedef & Rng & "," 'Hedef hücre içeriği ve sıradaki dolu hücreyi yanyana yaz "," ekle
Next Rng 'Rng döngüsüne devam et
Hedef = Mid(Hedef, 1, Len(Hedef) - 1) 'Parça al fonk. Sondaki "," kaldırmak için
'ya da
Hedef = Left(Hedef, Len(Hedef) - 1) 'Soldan hedef uzunluğu -1 karakter al. Sondaki "," kaldırmak için
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 699
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

Cevap: Cevap: VBA Nerede hata yapıyorum?

İleti#16)  kdr20_88 » 15 Eyl 2020 08:03

Oldu abi. Ders kitabı gibi hemde :)

Miraç CAN yazdı:
Kod: Tümünü seç
Dim Hedef As Range, Alan As Range 'Değişken tanımları. Başvuruları, işlemler daha sade/pratik olsun diye isimleri kısaltmak için
Set Hedef = Worksheets("Invoice").Range("B49") 'Yazılacak hücre ayarla
Set Alan = Worksheets("Veri Giriş").Range("B29:P29") 'Veri alınacak hücreleri ayarla
Hedef = Empty 'Yazılacak hücre içeriğini boş yap
For Each Rng In Alan.SpecialCells(xlCellTypeConstants) 'Alandaki dolu hücreleri bul ve Rng içerisinde döndür.
    Hedef = Hedef & Rng & "," 'Hedef hücre içeriği ve sıradaki dolu hücreyi yanyana yaz "," ekle
Next Rng 'Rng döngüsüne devam et
Hedef = Mid(Hedef, 1, Len(Hedef) - 1) 'Parça al fonk. Sondaki "," kaldırmak için
'ya da
Hedef = Left(Hedef, Len(Hedef) - 1) 'Soldan hedef uzunluğu -1 karakter al. Sondaki "," kaldırmak için
Kullanıcı avatarı
kdr20_88
Yeni Başlamış
 
Kayıt: 11 Arl 2014 11:22
Meslek: Muhasebe
Yaş: 32
İleti: 72
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENZİLİ/MERKEZ

Cevap: VBA Nerede hata yapıyorum?

İleti#17)  kdr20_88 » 17 Eyl 2020 08:46

Miraç abi,
Worksheets("Invoice").Range("B49") şeklinde hedefler belirtiyoruz. Ama sonra sayfa düzenlemesi için araya satır sütün eklendiğinde haliyle hedefler de kayıyor yada yer değiştiriyor. Yani Worksheets("Invoice").Range("B49") olan yer önünden bir satır silmeyle Worksheets("Invoice").Range("B48") olabiliyor. Ama biz Worksheets("Invoice").Range("B49") olarak kodladığımız için haliyle B49 a yazıyor. Kodların bu satır sütun eklemeyle bozulmaması için ne yapabilirim?
Kullanıcı avatarı
kdr20_88
Yeni Başlamış
 
Kayıt: 11 Arl 2014 11:22
Meslek: Muhasebe
Yaş: 32
İleti: 72
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENZİLİ/MERKEZ

Cevap: VBA Nerede hata yapıyorum?

İleti#18)  Miraç CAN » 18 Eyl 2020 09:17

Dosya örneğini incelemek gerek.
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 699
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 0 misafir

Bumerang - Yazarkafe