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?
Range("v2:v" & sonsatir ). Formula="=vlookup..." şeklinde dener misiniz?
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.
Benim yazdığım kodu denediniz mi?
Çalışmanızı ekleyin inceliyelim
Ayrıca kod butona mi atanacak hangi koşullarda formülü nasil atayacak
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
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