özel yapıştırı makroyla yapmak

[skywalker48]

arkadaşlar istediğimi örnek dosyada anlattım, özel yapıştırı aktif hücre seçiliyken tek tıkla yapmal istiyorum, (değerleri ve sayı biçimlendirmelerini)

 

[alpmus]

İstediğiniz böyle bir şeymi

 

[skywalker48]

Run Tİme Uyarisi Verİyor (1004 ) FormÜl Olan HÜcreyİ SeÇİcem Sonra DÜĞmeye Basicam Oda DeĞer Olarak DeĞİŞecek İstedİĞİm Bu

 

[mumunal]

Sanırım istediğiniz böyle bir şey

 

[hamitcan]

Alternatif

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
    If .HasFormula Then .Value = .Value
End With
End Sub

 

[skywalker48]

mumunal tam istediğim gibi teşekkür ederim,
ben kod uygulamayı bilmiyorum, siteden hep hazır kullanıyorum. nasıl yapıldığını anlatabilirmisiniz? sayfaya sağ tıklayıp kod görüntülemeyi seçiyorum, yukardaki kodu sayfaya yapıştırıyorum. sonra ne yapmam gerekiyor? bunu öğrenirsem çok süper olacak

 

[skywalker48]

gerek kalmadı arkadaşlar, kod yazmayı öğreniyorum linkinden öğrendim

 

[Seyit Tiken]

Verilerin yerleri sabit ise, bu şekilde bir kodta kullanılabilir. (Çift tıklama)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Target.Offset(0, -2)
Target.Offset(1).Activate
End Sub

 

[skywalker48]

seyit tiken senin kodunu uygulayamadım ya makro oluştur diyorum yada modül ekliyorum. kodu yapıştırıyorum project explorer a tıklıyorum bi değişme olmuyo, galiba uyarı veriyor, ne yapmam gerekiyo. yukardaki kodu yapmıştım tesadüfen oldu galiba

 

[Seyit Tiken]

Kodu örnek dosya üzerinde uyguluyorum.

 

[skywalker48]

teşekkür ederimm