İL İL alt alta veri ekleme veya aktarma

[kontto]

Arkadaşlar, sizden istediğim yardım ki ekteki dosyayı sağolsun ellerine sağlık bu siteden Sn dEdE kodları yazarak bana yardımcı oldu. Bu şekilde işimi görüyor. Buna ekstra olarak; sizden istediğim yardım, G5 sütununa il adı girerek "veri" sayfasına o ilin karşısına verileri ekleyebiliyoruz. Aynı ilden tekrar tekrar girmem gerekirse o ilin bulunduğu satırı bir aşağı açarak oraya kaydedebilirmi. Bu diğer iller içinde geçerli ama il plaka sıraları bozulmadan olması gerikiyor.
Yardımlarınız için şimdiden teşekkür ederim.

 

[dEdE]

Merhaba,
Başlamışken devam edelim. Aşağıdaki kodu Modüle ekelyerek bir butona bağlayıp dener misiniz?

Sub YeniKayıt()
If MsgBox("Yeni veri kaydetmek istediğinizden emin misiniz?", vbExclamation + vbYesNo, "D İ K K A T !!!") = vbNo Then Exit Sub
Set s1 = Sheets("anasayfa")
Set s2 = Sheets("veri")
Set Aranan = s2.Range("A:A").Find(s1.[G5].Value, , xlValues, xlWhole)
    If Not Aranan Is Nothing Then
        s2.Rows(Aranan.Row + 1).Insert (3)
        For i = 1 To 7
            s2.Cells(Aranan.Row + 1, i).Value = s1.Cells(i + 4, 7).Value
        Next
    End If
MsgBox "İşlem Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub

 

[serkankiyak]

Kod yazılmış.

 

[dEdE]

Kod yazılmış.

Sorun değil, farklı bir yaklaşım varsa görmek isteriz.

 

[kontto]

Sn. dEdE çok teşekkür ederim. Size zahmet verdik. Ellerinize emeğinize sağlık.