İl Karşına (ilin olduğu satıra) veri aktarma

[kontto]

Arkadaşlar, F4 sütununa yazdığım il ve diğer bilgileri aşağıya doğru yazdığım zaman VERI sayfasında bulunan aynı ilin karşısında ki yerlere yazmasını istiyorum. Ancak örnek olarak artvin ilinde bir değişklik olduğu zaman tekrar ANASAYFA daki verileri değiştirdiğim zaman o ilin karşındaki bilgilerinde değişmesi gerekiyor. Yardımlarınız için şimdiden teşekkür ederim.
Örnek dosya gönderiyorum. Yardımcı olursanız minnettar kalırım.

 

[Orion1]

Dosyanız ektedir.
=DÜŞEYARA($F$4;VERI!$A$2:$C$65536;3)

 

[kontto]

Orion1 bey öncelikle ilginizden dolayı teşekkür ederim. Ancak ben veri sayfasından veri almak veya görmek istemiyorum. ANASAYFA'ya yazdığım bilgileri VERI sayfa sına ilin karşısına eklemesini istiyorum.

 

[nane]

Forumdaki veri aktarma ile ilgili konulara bakıp düzenleyebilirsiniz.

Yb®

 

[Orion1]

Orion1 bey öncelikle ilginizden dolayı teşekkür ederim. Ancak ben veri sayfasından veri almak veya görmek istemiyorum. ANASAYFA'ya yazdığım bilgileri VERI sayfa sına ilin karşısına eklemesini istiyorum.

Dosyanız ektedir.

Sub aktar59()
Dim k As Range, sh As Worksheet, sat As Long
Sheets("ANASAYFA").Select
If Range("F4").Value = "" Then
    MsgBox "Lütfen İL adı giriniz.", vbCritical, "U Y A R I"
    Range("F4").Select
    Exit Sub
End If
Set sh = Sheets("VERI")
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row
Set k = sh.Range("A2:A" & sat).Find(Range("F4").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    For j = 2 To 6
        k.Offset(0, j).Value = Cells(j + 3, "F").Value
    Next
    Range("F4:F9").ClearContents
    MsgBox "İşlem Başarı ile gerçekleşti." & vbLf & "evrengizlen@hotmail.com"
    Else
    MsgBox Sheets("ANASAYFA").Range("F4").Value & "   isminde bir kişi bulunamadı!", vbCritical, "U Y A R I"
End If
End Sub

 

[kontto]

Birkaç gündür benim internette bir problem vardı ve bağlantı sıkıntısı yaşıyordum. Ancak bugün sabah itibarı ile bağlanabildim.
Orion bey çok teşekkür ederim elinize sağlık. Tam istediğim gibi olmuş, bu arada bir şey daha isteyebilirmiyim. Aktarma yaptığı sırada diğer sayfaya gidiyor. Yani veri sayfasına geçerek o sayfayı görüntülüyor. Sadece kayıt yerinde kaydetsem ve diğer sayfayı görüntülemezse olur mu.

 

[ordulu82]

Dosyanız ektedir.

Sub aktar59()
Dim k As Range, sh As Worksheet, sat As Long
Sheets("ANASAYFA").Select
If Range("F4").Value = "" Then
    MsgBox "Lütfen İL adı giriniz.", vbCritical, "U Y A R I"
    Range("F4").Select
    Exit Sub
End If
Set sh = Sheets("VERI")
sat = sh.Cells(Rows.Count, "A").End(xlUp).Row
Set k = sh.Range("A2:A" & sat).Find(Range("F4").Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    For j = 2 To 6
        k.Offset(0, j).Value = Cells(j + 3, "F").Value
    Next
    Range("F4:F9").ClearContents
    sh.Select
    k.Offset(0, 0).Select
    MsgBox "İşlem Başarı ile gerçekleşti." & vbLf & "evrengizlen@hotmail.com"
    Else
    MsgBox Sheets("ANASAYFA").Range("F4").Value & "   isminde bir kişi bulunamadı!", vbCritical, "U Y A R I"
End If
End Sub

Üstadım hücreleri çoğaltma şansımız var mı

 

[vardar07]

Üstadım hücreleri çoğaltma şansımız var mı

For j = 2 To 6 yerine For j = 2 To 7
Range("F4:F9").ClearContents yerine Range("F4:F10").ClearContents

Kırmızı yerdeki değerleri değiştirerek çoğaltabilirsin.

 

[Orion1]

Birkaç gündür benim internette bir problem vardı ve bağlantı sıkıntısı yaşıyordum. Ancak bugün sabah itibarı ile bağlanabildim.
Orion bey çok teşekkür ederim elinize sağlık. Tam istediğim gibi olmuş, bu arada bir şey daha isteyebilirmiyim. Aktarma yaptığı sırada diğer sayfaya gidiyor. Yani veri sayfasına geçerek o sayfayı görüntülüyor. Sadece kayıt yerinde kaydetsem ve diğer sayfayı görüntülemezse olur mu.

5 nolu mesjda dosyanızı güncelledim.
Kolay gelsin.

 

[kontto]

Elinize ve emeğinize sağlık teşekkür ederim.