Makro ile düşeyara

[Yesilyurtlu]

Üstadlarım;
bir üstteki verilerin aynısını girdiğim zaman otomotik olarak düşeyara yaptırabilme imkanımız var mı?

 

[ynmcan]

Sy. Yeşilyurtlu ;
Aşağıdaki kod işinizi görürmü ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 5 To 7
   For f = 8 To 1000
      If Sayfa1.Cells(f, 4) <> "" Then
        If Sayfa1.Cells(f, 4) = Sayfa1.Cells(i, 4) Then
             Sayfa1.Cells(f, 5) = Sayfa1.Cells(i, 5)
         End If
      End If
    If Sayfa1.Cells(f, 4) = "" Then
         Sayfa1.Cells(f, 5) = ""
      End If
   Next f
Next i
End Sub

Ekteki dosyayı inceleyin.

 

[parametre]

DÜŞEYARA(G7;$D$5:$E$14;2)
g6=aranan deger
d5:e14=aranan degerin sınırlari
2 sutun sayısı

pardon makro istenmiş

 

[Yesilyurtlu]

Sayın ynmcany

İstediğim gibi olmuş Elinize sağlık.
İmleç sürekli titriyor. Veri girişi ağırlaşıyor. Bakabilir misin

 

[ynmcan]

Sy. Yeşilyurtlu ;
Dosyanız ekte.