Otomatik veri aktarımı

[steppe]

E10:E34 aralığındaki hücrelere bir kez tıklayınca D1'e hücrede yazılı olan ilçeyi aktarsın.Yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [E10:E34]) Is Nothing Then Exit Sub
On Error Resume Next
Range("D1").Value = ""
Range("D1").Value = Target.Value
End Sub

 

[steppe]

Orion1 Kardeş,
Yardımlarınız için çok teşekkür ederim.Kodu module mi kopyalayacağım yoksa başka bir yere mi?

 

[Orion1]

Çalışma sayfasının modülüne yapıştırınız.

 

[hkaraali53]

Veri aktarımı

Merhaba arkadaşlar eklemiş olduğum excel belgesinde 1. Sayfanın a hücresine veri girişi yaptığımda e hücresine alt alta kayıt yapıyor.
Uzman arkadaşlardan istediğim 1 sayfadaki a hücresindeki alanların karşılığının doldurularak 2 sayfaya kaydetmesi yardımcı olanlara şimdiden teşekkürler

 

[steppe]

otomatik veri aktarımı

Öncekine ilave olarak örnekte tekrar açıkladığım gibi..
E14'tıklayınca sadece D1'e Beypazarı yazmasın, C sütunundaki dolu hücrelerin sağındaki hücrelerin hepsine Beypazarı yazsın.

 

[steppe]

Uzman arkadaşların yardımlarını bekliyorum.Böyle yardım istemek site kurallarına aykırı ise özür dilerim.Yardımlarınız için şimdiden teşekkürler...

 

[Emir Hüseyin Çoban]

. . .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
cc = [c65536].End(3).Row
dd = [d65536].End(3).Row

If Intersect(Target, [E10:E34]) Is Nothing Then Exit Sub
On Error Resume Next

Application.ScreenUpdating = False
Range("d1:d" & dd).ClearContents

For i = 1 To cc
Cells(i, "d") = Target
Next i

Application.ScreenUpdating = True
End Sub

. . .

 

[steppe]

Hüseyin Çoban Kardeş,
Yardımların için çok teşekkür ederim.