excel bir hücreye girilen veriyi database'dekilerle karşılaştırma

Katılım
28 Kasım 2007
Mesajlar
2
Excel Vers. ve Dili
Excel 2000
arkadaşlar şöyle bir sorunum var ve excel'e pek hakim olmadığımdan üstesinden gelemiyorum
*Sayfa 2'de A1'den A100'e kadar tüm sütuna 100 adet Garantili Transformatör seri numaralarını gireceğim. Sayfa 1'in A sutununda bir trafonun seri numarasını girdiğimde sayfa 2'deki liste ile karşılaştırma yapacak ; eğer aynı seri numarası ise 'trafo garantilidir 'diye uyarı verecek .Bu işlem sayfa 1'in A sutununa gireceğim tüm seri numaraları için garantili trafolar için uyarı verecek şekilde devam edecek. Yardımcı olacak arkadaşlara şimdiden teşekkürler
 
Katılım
22 Nisan 2005
Mesajlar
486
Excel Vers. ve Dili
tarkan@tarkanvural.com.tr
Sayfa1 de a1 hücresine Transformatör seri numarasını yazın b1 hücresine de
Kod:
=EĞER(DÜŞEYARA(A1;Sayfa2!$A$1:$A$100;1;0)=A1;"Garantili")
formülünü yazın ve çoğaltın. ;)
 

leumruk

Uzman
Uzman
Katılım
15 Nisan 2007
Mesajlar
3,472
Excel Vers. ve Dili
Office 2010 & 2013 tr
Alternatif:
Makro ile, dosya ekte.
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a2:a65536]) Is Nothing Then Exit Sub
Sat = [Sayfa2!a65536].End(3).Row
If Application.WorksheetFunction.CountIf(Sheets("Sayfa2").Range("A2:A" & Sat), Target) > 0 Then
MsgBox "Trafo garantilidir."
End If
End Sub
 

Ekli dosyalar

Katılım
28 Kasım 2007
Mesajlar
2
Excel Vers. ve Dili
Excel 2000
Tarkan kardeş ,tıkır tıkır çalışıyo ,eline sağlık güzel olmuş
 
Üst