REFERANS SÜTUNDAKİ DEĞERE GÖRE FARKLI BİR SÜTUNA DEĞER YAZDIRMA? (DÜŞEYARA DEĞİL MAKRO İLE..)

[itouchcanmedia]

ARKADAŞLAR ÖRNEK DOSYAYI KOUYUYORUM AMA SENİM İÇİN MAKRO İLE OLMASI ÇOK ÖNEMLİ. YARDIMCI OLURSANIZ SEVİNİRİM.

 

[itouchcanmedia]

sanırım şuan kimse yok. ama yardımcı olursanız çok sevinirim

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu "Sayfa1"in kod editörüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.Column = 1 Then Exit Sub
    For bak = Target.Row + 1 To Cells(Rows.Count, "H").End(xlUp).Row
        If Cells(Target.Row, "H") = Cells(bak, "H").Value Then
            Cells(bak, "B").Value = Target.Value
            Exit For
        End If
    Next
End Sub

 

[itouchcanmedia]

üzgünüm ama kodu yapıştırdığımda benden bir makro adı oluşturmamı istiyor buhnu yaptığımda da doğrudan hata veriyor bayağı acemiyim acaba beceremediğim birşey mi var

 

[itouchcanmedia]

üzgünüm ama kodu yapıştırdığımda benden bir makro adı oluşturmamı istiyor buhnu yaptığımda da doğrudan hata veriyor bayağı acemiyim acaba beceremediğim birşey mi var

pardon sanırım yaptım. ancak bazı sorunlar var. 1 defalık ilk kaydı otomatik yazıyor ancak sayfanın alt taraflarındaki tekrarları otomatik yazmıyor. ayrıca ilk veri girişini kendi ellerimle yazdıktan sonra sütunun aşağısında bulunan ilk tekrarda görevini yapıyor ancak tekrar eden veri sütundaki elle giriş yaptığım yerden daha yukarıdaysa görevini yapmıyor. umarım uygun anlatabilmişimdir.

 

[Muzaffer Ali]

O zaman şu kodu kullanın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.Column = 1 Then Exit Sub
    For bak =  1 To Cells(Rows.Count, "H").End(xlUp).Row
        If Cells(Target.Row, "H") = Cells(bak, "H").Value Then
            Cells(bak, "B").Value = Target.Value
        End If
    Next
End Sub

 

[Muzaffer Ali]

Eğer veri girişi yaptığınız satırın B sütununa yazmasın istiyorsanız aşağıdaki kodu kullanın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.Column = 1 Then Exit Sub
    For bak = 1 To Cells(Rows.Count, "H").End(xlUp).Row
        If Cells(Target.Row, "H") = Cells(bak, "H").Value Then
            If Not bak = Target.Row Then
                Cells(bak, "B").Value = Target.Value
            End If
        End If
    Next
End Sub

 

[itouchcanmedia]

ne kadar teşekkür etsem az. çok ama çok çok sağolun. bilgi ne kadar güzel

 

[Muzaffer Ali]

Ben de teşekkür ederim iyi çalışmalar.