Formüllü Hücreden Sadece Değeri Almak

[myefsane]

ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.Value = Sayfa12.Range("e5").Value

Merhaba sayfa12 e5 hücresine iki saat arasında ki fark yazıyor yani 08:00 -10:00 arasındaki fark 2:00 şeklinde yazıyor yukarıda ki makro ile aldığımda 00:00 olarak görünüyor biçimi değiştirsem de aynısı oluyor. Makro ile aldığım değeri nasıl 02:00 şeklinde gösterebilirim?

 

[AdemCan]

Biçimlendirmeleri yapıştırma seçeneği ile yapılabilir.

ActiveCell.Offset(0, 1).Range("A1").Select
Sayfa12.Range("E5").Copy

With ActiveCell
    .PasteSpecial xlPasteAllUsingSourceTheme
    .PasteSpecial xlPasteValues
End With

Application.CutCopyMode = False

 

[myefsane]

Sayfa12.Range("E5").copy de bu hatayı veriyor. Run-time error'1004': RAnge sınıfının select yöntemi başarız.

 

[myefsane]

Sayfa ismi değişirse makro çalışmıyor. Sayfa ismi değişse bile makro etkilenmemesini nasıl sağlarım

 

[Korhan Ayhan]

Aşağıdaki kod satırı ne amaçla kullanıldı?

ActiveCell.Offset(0, 1).Range("A1").Select

 

[myefsane]

A1 hücresinden referans alması için kullanıldı. makro kayıt böyle yaptı.

 

[Korhan Ayhan]

Peki makro kaydet işleminde ne yaptınızda bu satır oluştu.

Bana pek mantıklı gelmedi.

Küçük bir örnek dosya ile yapmak istediğiniz işlemi açıklarsanız yardım almanız kolaylaşır.