Excelde aynı hücreye girilen verileri başka hücrelere aktarmak

[mukilyar]

teşekkür ederim

 

[telatkok]

merhaba, ben bu kodu kullanarak a2 hücresini e ye kopyalıyorum ama aynı zamanda b8 hücresinide kopyalamak istiyorum. yardımcı olabilirmisiniz

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
For i = 1 To Range("e65535").End(xlUp).Offset(1, 0).Row
If Range("e" + CStr(i)).Value = "" Then
Range("e" + CStr(i)).Value = Target.Value
Exit For
End If
Next i
End If
End Sub

 

[EmrExcel16]

merhaba, ben bu kodu kullanarak a2 hücresini e ye kopyalıyorum ama aynı zamanda b8 hücresinide kopyalamak istiyorum. yardımcı olabilirmisiniz

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
For i = 1 To Range("e65535").End(xlUp).Offset(1, 0).Row
If Range("e" + CStr(i)).Value = "" Then
Range("e" + CStr(i)).Value = Target.Value
Exit For
End If
Next i
End If
End Sub

Deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Or Target.Address = "$B$8" Then
    For i = 1 To Range("e65535").End(xlUp).Offset(1, 0).Row
        If Range("e" + CStr(i)).Value = "" Then
            Range("e" + CStr(i)).Value = Target.Value
            Exit For
        End If
    Next i
End If
End Sub

Ayrıca alternatif olarak aşağıdaki kodlar ile de aynı işlemi yapabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Or Target.Address = "$B$8" Then
        Cells(Cells(Rows.Count, "E").End(3).Row + 1, "E") = Target
    End If
End Sub

 

[telatkok]

Deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Or Target.Address = "$B$8" Then
    For i = 1 To Range("e65535").End(xlUp).Offset(1, 0).Row
        If Range("e" + CStr(i)).Value = "" Then
            Range("e" + CStr(i)).Value = Target.Value
            Exit For
        End If
    Next i
End If
End Sub

Ayrıca alternatif olarak aşağıdaki kodlar ile de aynı işlemi yapabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Or Target.Address = "$B$8" Then
        Cells(Cells(Rows.Count, "E").End(3).Row + 1, "E") = Target
    End If
End Sub

[/QUOTE

merhaba ilginize teşekkür ederim. sadece b8'i f sütununa kopyalamak istiyoruz. naasıl yapabiliriz.

 

[EmrExcel16]

Deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$8" Then
        Cells(Cells(Rows.Count, "F").End(3).Row + 1, "F") = Target
    End If
End Sub

 

[dennyyss]

merhaba bir probleme acaba bir çözüm bulunur mu?
B1:C3 aralığına yazdığım değerleri A sütununa alt alta yazan ve bu aralıktaki değerlerden birinin değişmesi veya silinmesi halinde A sütunundan kaldıran ve aralıktaki diğer mevcut değerleri A sütununa boşluksuz dizen sonra B1:C3 aralığına yeni yazılan değer olursa onu da yine A sütununun en altındaki dolu hücrenin bir altındaki boşluğa yazan bir formül veya bu veriyi hem butonsuz aktaran ve anlık olarak işleyerek görüntüleyen bir macro var mıdır katkılarınız için şimdiden teşekkür ederim.
Not: normalde macro ile yapıyorum ancak hem buton ile aktarıyorum hem de aralıktan kaldırdığım veri a sütununda sabit kalıyor onu silmek zorunda kalıyorum bu yüzden butonsuz ve işlemi anlık yapan ve aktaran bir formüle veya bu veriyi hem butonsuz hemde anlık olarak işleyen bir macroya ihtiyacım var.