Skip to main content

AccessTr.neT


Formülü Vba Koduna Çevirmek

Formülü Vba Koduna Çevirmek

#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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Formülü Vba Koduna Çevirmek - Yazar: conquerora - 17/01/2022, 10:26
RE: Formülü Vba Koduna Çevirmek - Yazar: berduş - 17/01/2022, 11:00
RE: Formülü Vba Koduna Çevirmek - Yazar: conquerora - 17/01/2022, 11:38
RE: Formülü Vba Koduna Çevirmek - Yazar: berduş - 17/01/2022, 11:40
RE: Formülü Vba Koduna Çevirmek - Yazar: conquerora - 17/01/2022, 13:26
RE: Formülü Vba Koduna Çevirmek - Yazar: berduş - 17/01/2022, 13:33
RE: Formülü Vba Koduna Çevirmek - Yazar: berduş - 17/01/2022, 14:14
RE: Formülü Vba Koduna Çevirmek - Yazar: conquerora - 17/01/2022, 14:40
Task