excellkurdu
Altın Üye
- Katılım
- 16 Nisan 2008
- Mesajlar
- 313
- Excel Vers. ve Dili
- Türkçe Microsoft Office Excel 2007
- Altın Üyelik Bitiş Tarihi
- 22-03-2026
Hayırlı günler dilerim Arkadaşlar,
Aşağıdaki kodda Sayfa19.Cells(7, 3) = deger bunu ekleyince excel sayfam çöküyor. Bellek yetersizliği hatası veriyor. Sayfa sutunları bozuluyor.
Yardımcı olursanız sevinrim.
Aşağıdaki kodda Sayfa19.Cells(7, 3) = deger bunu ekleyince excel sayfam çöküyor. Bellek yetersizliği hatası veriyor. Sayfa sutunları bozuluyor.
Yardımcı olursanız sevinrim.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim deger As String
On Error GoTo Hata
If Cells(Target.Row, 3) <> "" Then
deger = Application.WorksheetFunction.VLookup([C4], Sayfa2.Range("B4:D12"), 2, False)
ActiveSheet.Range("c6").Select
Sayfa19.Cells(7, 3) = deger
End If
Hata:
End Sub
Ekli dosyalar
-
22.3 KB Görüntüleme: 4