Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Formülü Vba Koduna Çevirmek

conquerora
conquerora
Excel Cevaplanmış Soruları
7
391

Formülü Vba Koduna Çevirmek

#5
conquerora
conquerora
conquerora
Bul
Aktif Üye*
Adı Soyadı: Fa.... AD....
Konum: Sakarya
Ofis Versiyonu: Diğer
Son Oturumu: 24/09/2023,18:29
Yorumları: 117
Konuları: 33
Kayıt Tarihi: 07/08/2009
Teşekkür Puanı: 0
Mesleğiniz: MATERIAL INPUT QC
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

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