+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formülü Vba Koduna Çevirmek (/konu-formulu-vba-koduna-cevirmek.html)
Sayfalar:
1
2
Formülü Vba Koduna Çevirmek - conquerora - 17/01/2022
Merhaba
mix isimli sayfa da V2 hücresinden itibaren V sütünuna =DÜŞEYARA(h2;$AA$1:$AB$15;2;YANLIŞ) formülünü Vba ile yazmak istiyorum.
Yaptıklarım çalışmadı. Nasıl bir kod yazmalıyım?
RE: Formülü Vba Koduna Çevirmek - berduş - 17/01/2022
Range("v2:v" & sonsatir ). Formula="=vlookup..." şeklinde dener misiniz?
RE: Formülü Vba Koduna Çevirmek - conquerora - 17/01/2022
merhaba berduş
Private Sub DikdörtgenKöşeleriYuvarlatılmış2_Tıkla()
On Error Resume Next
If Sheets("mix").Cells(2, 8) > 0 Then
Sheets("mix").Cells(2, 22) = Application.WorksheetFunction.VLookup(Sheets("mix").Cells(2, 8), Sheets("mix").Range("AA1:AB15"), 2, 0)
Else
MsgBox "Kayıt Bulunamadı"
End If
End Sub
olarak düzenledim. sadece V2 hücresinde çalışıyor. V:V sütünunun tamamın da çalışması için ne ilave etmem gerekir.
RE: Formülü Vba Koduna Çevirmek - berduş - 17/01/2022
Benim yazdığım kodu denediniz mi?
Çalışmanızı ekleyin inceliyelim
Ayrıca kod butona mi atanacak hangi koşullarda formülü nasil atayacak
RE: Formülü Vba Koduna Çevirmek - conquerora - 17/01/2022
Merhaba
buton a atanması gerekmiyor.
Alttaki şekilde güncelledim. Ama sadece bir satırda çalıştı. Aynı şekilde 5000 satır var.Tüm satırlarda çalışmalı.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Sheets("mix").Cells(2, 8) > 0 Then
Sheets("mix").Cells(2, 22) = Application.WorksheetFunction.VLookup(Sheets("mix").Cells(2, 8), Sheets("mix").Range("AA1:AB15"), 2, 0)
Else
MsgBox "Kayıt Bulunamadı"
End If
End Sub
RE: Formülü Vba Koduna Çevirmek - berduş - 17/01/2022
Yazdiginiz kod sadece v2 hucresine veri ekler, sayfadaki herhangi bir hücrenin içeriği değiştiğinde kod doğrudan V2'yi değiştirir.
Siz yazdığım kodu deneyip denemediginizi neden söylemiyorsunuz
neden örnek dosyanızı eklemiyorsunuz?
Ve açıklamanızda yetersiz
ne olduğunda çalışacak diye sormuşum, ona da cevap vermemişsiniz