Bir hücredeki sürekli değişen sayısal değeri farklı hücreye yazmak

[ern100]

Arkadaşlar Merhaba,

1. sayfada a1 hücresinde sürekli değişen değeri değer değiştikçe 2. sayfadaki A sütununa alt lata yazdırmak ve B sütununa da o tarihi yazdırmak istiyorum. Bunu makro veya formülla yapabileceğim kodlara ihtiyacım var.

Örneğin; 1 sayfa a1 hücresi 1 olduğunda 2. sayfa a1 hücresine 1 ve b1 hücresine ilgili tarih, 1 sayfa a1 hücresi 1,1 olduğunda 2 sayfa a2 hücresine 1,1 ve b2 hücresine tarih şeklinde.

yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer]

Merhaba,

Sayfa1 A1 hücresini elle mi değiştiriyorsunuz?

 

[ern100]

Merhaba,

Sayfa1 A1 hücresini elle mi değiştiriyorsunuz?

Hayır, otomatik değişiyor.

 

[Ömer]

Sayfa1'in kod bölümüne yapıştırınız.

Private Sub Worksheet_Calculate()
    Dim son As Long
    With Sheets("Sayfa2")
        son = .Cells(Rows.Count, "A").End(xlUp).Row + 1
        .Cells(son, "A") = Range("A1")
        .Cells(son, "B") = Now
    End With
End Sub

 

[ern100]

Sayfa1'in kod bölümüne yapıştırınız.

Private Sub Worksheet_Calculate()
    Dim son As Long
    With Sheets("Sayfa2")
        son = .Cells(Rows.Count, "A").End(xlUp).Row + 1
        .Cells(son, "A") = Range("A1")
        .Cells(son, "B") = Now
    End With
End Sub

Ömer hocam teşekkür ederim. Kod çalışıyor ancak a1 hücresindeki değer değiştiğinde sayfa 2'ye yine aynı hücreye yazıyor. bir alt satıra yazmıyor.

 

[Ömer]

Kodları tekrar kontrol ettim.

son = .Cells(Rows.Count, "A").End(xlUp).Row + 1

Buradaki +1 den dolayı bir sonraki boş hücreye yazar. Ayrıca denedim, aynı hücreye değil bir alt hücreye yazıyor.

Biryerde hata yapmış yada gözleminiz yanlış olabilir mi?

 

[ern100]

Ömer hocam teşekkür ederim. Kod çalışıyor ancak a1 hücresindeki değer değiştiğinde sayfa 2'ye yine aynı hücreye yazıyor. bir alt satıra yazmıyor.

Ömer hocam teşekkür ederim. Kod çalışıyor ancak a1 hücresindeki değer değiştiğinde sayfa 2'ye yine aynı hücreye yazıyor. bir alt satıra yazmıyor.

Aslında ben 1. sayfadaki X148 hücresini 2. sayfaya yazdırmak istiyorum. Bu yüzden aşağıdaki şekilde düzelttiğimde sürekli sayfa 2'de aynı hücre üzerine yazıyor.

son = .Cells(Rows.Count, "X").End(xlUp).Row + 1
.Cells(son, "A") = Range("X148")
.Cells(son, "B") = Now

 

[ern100]

Kodları tekrar kontrol ettim.

son = .Cells(Rows.Count, "A").End(xlUp).Row + 1

Buradaki +1 den dolayı bir sonraki boş hücreye yazar. Ayrıca denedim, aynı hücreye değil bir alt hücreye yazıyor.

Biryerde hata yapmış yada gözleminiz yanlış olabilir mi?

Çok özür dilerim. şimdi oldu. çok teşekkür ederim desteğinize.