Otomatik veri alma

[Bin_Dawood]

Arkadaşlar sizden ricam örnek de verdiğim daha önce karşısına no su yazdığım değeri tekrar yazdığımda karşısına otomatik gelmesi için nasıl birşey yazabilirim. İlk defa geldiğim için nasıl bir yol izleyeceğimi bilemedim burda.. yardımcı olursanız sevinrm kolay gelsin...

 

[onrays]

Merhaba elimden geldiğince anladığım kadarıyla birseyler karalayayım.
İlk önce veri sayfası olması gerekiyor ki vergi dairesini tanısın excel


kontrol edermisin.

 

[Bin_Dawood]

hımm anladığım kadarıyla vergi dairelerini önceden tanımlamak gerekiyor... tmm ustad o şekilde hazırlayım. olmassa sizden yardım alırım çok sağolun

 

[Bin_Dawood]

merhaba elimden geldiğince anladığım kadarıyla birseyler karalayayım.
Ilk önce veri sayfası olması gerekiyor ki vergi dairesini tanısın excel


kontrol edermisin.

size bir örnek daha gönderiyorum ilkinde pek açıklayıcı olmadı sanırım.

 

[Bin_Dawood]

Burada üstad

 

[tahsinanarat]

aşağıdaki kodu deneyiniz

Sayfanın kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [f:f]) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Interior.ColorIndex = xlNone
Target.Offset(0, 1) = ""
Else
Set Bul = ActiveSheet.Columns("f").Find(Target, lookat:=xlWhole)
If Bul Is Nothing Then
Target.Interior.ColorIndex = 3
Target.Offset(0, 1) = ""
MsgBox Target.Value & " Degerini Bulamadim "
Else
Target.Interior.ColorIndex = xlNone
Target.Offset(0, 1) = ActiveSheet.Cells(Bul.Row, "g")
End If
End If
Son:
End Sub

 

[onrays]

Kontrol edermisin.

 

[tahsinanarat]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [f:f]) Is Nothing Then Exit Sub
If Target.Value = "" Then
Target.Interior.ColorIndex = xlNone
Target.Offset(0, 1) = ""
Else
Set Bul = ActiveSheet.Columns("f").Find(Target, lookat:=xlWhole)
If Bul Is Nothing Then
Target.Interior.ColorIndex = 3
Target.Offset(0, 1) = ""
MsgBox Target.Value & " Degerini Bulamadim "
Else
Target.Interior.ColorIndex = xlNone
Target.Offset(0, 1) = ActiveSheet.Cells(Bul.Row, "g")
End If
End If
Son:
End Sub

 

[Bin_Dawood]

Çok teşekkür ederim ...Allah razı olsun

 

[onrays]

Cümle cihandan elimizden geldğince yardım ediyoruz.

İyi Çalışmalar.