Skip to main content

AccessTr.neT


Formülü Vba Koduna Çevirmek

Formülü Vba Koduna Çevirmek

Çözüldü #1
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?
07-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
Range("v2:v" & sonsatir ). Formula="=vlookup..." şeklinde dener misiniz?
Cevapla
#3
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.
07-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
Benim yazdığım kodu denediniz mi?
Çalışmanızı ekleyin inceliyelim
Ayrıca kod butona mi atanacak hangi koşullarda formülü nasil atayacak
Cevapla
#5
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
07-08-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da