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

[mukilyar]

Merhabalar
Webde şöyle bir makro buldum

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

Bu makro ile A1 hücresine her girdiğim değeri C sütununda alt alta yazıyor
A1 hücresini manuel olarak ben değiştirdiğimde sıkıntı yok
Ancak A1 hücresindeki veriyi ben webden otomatik olarak alıyorum
Değer otomatik değiştiğinde bu işlemi yapmıyor

Yardıncı olabilirmisiniz
Teşekkürler

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları kullanın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("$A$1")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Range("C" & Cells(Rows.Count, "C").End(3).Row + 1) = Target.Value
    Application.EnableEvents = True
End Sub

 

[mukilyar]

Merhaba
İlginize teşekkürler
Ancak aynı oluyor
Değer webden güncellenince otomatik olarak C sütununa yazmıyor

 

[Muzaffer Ali]

O zaman webden veri çeken kodların sonuna aşağıdaki kodları kopyalayın.
Her web güncellemesi sonunda bu kodlar da çalışacaktır ve istediğiniz işlemi gerçekleştirecektir.

    Application.EnableEvents = False
    Range("C" & Cells(Rows.Count, "C").End(3).Row + 1) = Target.Value
    Application.EnableEvents = True

 

[mukilyar]

Merhaba
webden api dosyası ile veri alıyorum
örnek dosyayı ekliyorum
yardımcı olabilirmisiniz
teşekkürler

 

[Muzaffer Ali]

"BTC" ve "ETH" sayfalarının B1 hücresinde bulunan formülleri =DÜŞEYARA(A1;_24hr;2)şununla =DÜŞEYARA(A1;Sayfa2!A:B;2)değiştirin.

 

[mukilyar]

Merhaba
Yine aynı değer güncellenince güncellenen değeri sütuna yazmıyor
Teşekkürler

 

[Muzaffer Ali]

Sayfa2 de güncelleme olduğunda çalışacak şekilde ayarlanabilir.
Ancak orijinal dosyanız da örnek dosyadaki gibi sayfa isimleri A sutununda bulunan verinin ilk üç harfi şeklinde mi?
Yani eğer Sayfa2 B kolonunda bir değişiklik olursa A sütunundaki verinin ilk üç harfine bakacağım o sayfanın C kolonuna ekleme yapacağım. Bu şekilde olsa olur mu?

 

[mukilyar]

evet olur

 

[Muzaffer Ali]

O zaman dosyadaki tüm kodları silin aşağıdaki kodu Sayfa2 niin kod kısmına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    With Worksheets(Left(Target(1, 0).Value, 3))
        .Range("D" & .Cells(Rows.Count, "D").End(3).Row + 1) = Target.Value
    End With
    Application.EnableEvents = True
End Sub

 

[Muzaffer Ali]

Olası bir hata ile karşılaşmamak için sayfa kontrolü de yapmak gerek.
Aşağıdaki kodları kullanmanız daha doğru olur.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SayfaAdi As String
    Dim Syf As Worksheet
    Dim SayfaVar As Boolean
    If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
    
    SayfaAdi = Left(Target(1, 0).Value, 3)
    For Each Syf In ThisWorkbook.Worksheets
        If Syf.Name = SayfaAdi Then
            SayfaVar = True
            Exit For
        End If
    Next
    If Not SayfaVar Then
        MsgBox SayfaAdi & " adlı sayfa bulunamıyor."
        Exit Sub
    End If
    Application.EnableEvents = False
    With ThisWorkbook.Worksheets(SayfaAdi)
        .Range("D" & .Cells(Rows.Count, "D").End(3).Row + 1) = Target.Value
    End With
    Application.EnableEvents = True
End Sub

 

[mukilyar]

Merhaba
Söylediklerinizi yaptım
Belki benim hatam olmuştur
Ben çalıştıramadım
Size gönderdiğiniz kodu eklediğim dosyayı gönderiyorum
Yardımlarınız için teşekkürler

 

[mukilyar]

Sonraki gönderdiğinizde bu

 

[Muzaffer Ali]

Dosya bende güncelleme yapmıyor hata veriyor o yüzden güncelleme yaparken hangi olayın çalıştığını bulamıyorum.
Ekteki dosyayı açın güncelleme yaptığında bir rakamı mesaj olarak gösterecek bana hangi rakamı mesaj gösterdiğini söyleyin bir de bu yöntemi deneyelim.

 

[mukilyar]

Merhaba hocam
veri güncelleme yaparken bu hatayı veriyor açılışta şimdi

 

[Muzaffer Ali]

Benim gönderdiğim dosyadaki kodları kendi dosyanıza kopyalayıp deneyin.

 

[mukilyar]

Merhaba Hocam
Bu koddan dolayı veri güncelleme yapamıyor
Ben denedim
Bu kod olmazsa güncelleme çalışıyor

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SayfaAdi As String
Dim Syf As Worksheet
Dim SayfaVar As Boolean
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub

SayfaAdi = Left(Target(1, 0).Value, 3)
For Each Syf In ThisWorkbook.Worksheets
If Syf.Name = SayfaAdi Then
SayfaVar = True
Exit For
End If
Next
If Not SayfaVar Then
MsgBox SayfaAdi & " adlı sayfa bulunamıyor."
Exit Sub
End If
Application.EnableEvents = False
With ThisWorkbook.Worksheets(SayfaAdi)
.Range("D" & .Cells(Rows.Count, "D").End(3).Row + 1) = Target.Value
End With
Application.EnableEvents = True
End Sub

 

[Muzaffer Ali]

Sadece o kodları sil.
Güncelleme yaptığı zaman mesaj ile bir numara göstermesi lazım. O numarayı bana söyle.

 

[mukilyar]

Sadece o kodları sildiğimde
Güncelleme yapıyor hata vermiyor

 

[Muzaffer Ali]

Ben bu konuda yardımcı olamıyorum.