bir hücredeki veriye 10 sn aralıklarla kopyalama

[imhero]

arkadaşlar merhaba
sayfa1 A1 hücresindeki veriyi 1 er dakika aralıklarla B kolonuna kopyalamak istiyorum, örnek ilk veri B1 e, 1 dk sonra B2 ye, 1 dk sonra B3 e.......

yardımlarınız için şimdiden teşekkürler

 

[uzmanamele]

merhaba
dediğiniz olur, uzman arkadaşlar yardımcı olacaklardır.
sanırım bu süre içersinde tablonuzda başka işlemler yapmayı düşünüyorsunuz.
eğer öğleyse makro çalışırken başka işlem yapamayabilirsiniz

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu boş bir modüle ekleyip denermisiniz. 10 saniye aralıklarla A1 hücresindeki değeri B sütununa aktarır.

Sub AUTO_OPEN()
    Application.OnTime Now + TimeValue("00:00:10"), "KOPYALA"
End Sub
 
Sub KOPYALA()
    SATIR = IIf([B65536].End(3) = "", [B65536].End(3).Row, [B65536].End(3).Row + 1)
    Cells(SATIR, 2) = [A1]
    AUTO_OPEN
End Sub

 

[uzmanamele]

merhaba
syn Korhan Ayhan, "IIf" komutu için güzel bir örnek. bişey daha öğrendim, teşekkür ederim.
IFF (şart;doğru ise;yanlış ise)

 

[1Al2Ver]

Selamlar,

Aşağıdaki kodu boş bir modüle ekleyip denermisiniz. 10 saniye aralıklarla A1 hücresindeki değeri B sütununa aktarır.

Sub AUTO_OPEN()
    Application.OnTime Now + TimeValue("00:00:10"), "KOPYALA"
End Sub
 
Sub KOPYALA()
    SATIR = IIf([B65536].End(3) = "", [B65536].End(3).Row, [B65536].End(3).Row + 1)
    Cells(SATIR, 2) = [A1]
    AUTO_OPEN
End Sub

Sayın Korhan Ayhan, merhaba, işlemi durdurmak için A1'deki rakamı silmenin dışında bir yol varmı? Teşekkür ederim.