sayfa1 deki bilgiyi sayfa2 de atlayarak yazabilme

[kontto]

İyi günler arkadaşlar Sayfa1 B4 satırına AMASYA yazıp C4,D4,E4 satırlarınada personel bilgilerini girdiğim zaman sayfa2 de bulunan (tüm illerin ismi mevcuttur) AMASYA ilinin karşısına yazmasını istiyorum. bir örneğini gönderiyorum lütfen yardım edin. şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Sayfa1'in kod sayfasına kopyalayınız..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
Set S1 = Sheets("Sayfa2")
If [B4] <> "" Then
d = WorksheetFunction.Match([B4], S1.[A:A], 0)
S1.Cells(d, "b") = [C4]
S1.Cells(d, "c") = [D4]
S1.Cells(d, "d") = [E4]
S1.Cells(d, "e") = [F4]
End If
Exit Sub
Son:
MsgBox "Listede Olmayan Veri Girdiniz"
End Sub

Not: Eklediğiniz dosyaların 2003 formatında olmasına özen göstermenizi rica ederim.

.

 

[Necdet]

Merhaba,

Aşağıdaki kodları da deneyebilirsiniz. Kodlar ilgili sayfanın kod bölümünde olmalı (Sayfa1)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B4]) Is Nothing Then Exit Sub
If [B4] = "" Then Exit Sub
If Application.WorksheetFunction.CountA([B4:F4]) <> 5 Then
    MsgBox "Bilgileri Tam Olarak Doldurunuz...."
    Exit Sub
End If
Dim Sat As Long
Dim c As Range
Dim s2 As Worksheet
Set s2 = Sheets("Sayfa2")
Set c = s2.Range("A:A").Find(Target.Value, LookIn:=xlValues)
If Not c Is Nothing Then
    Range("B4:F4").Copy s2.Cells(c.Row, "B")
    Range("B4:F4").ClearContents
Else
    MsgBox Target.Value & " Şehrini Bulamadım..."
End If
End Sub

 

[kontto]

teşekkürler arkadaşlar evet oldu emeğinize sağlık