Hücredeki formül sonucunun değer olarak kopyalanması

[opossum]

Merhabalar;
çalışma kitabımda bir hücreye formül yazdım formülüm =A1+A2 gibi bir formül ve sonucu 20 buluyor diyelim. istediğim şu bu 20 değerini değer olarak herhangi bir hücreye nasıl otomatik kopyalatabilirim.

 

[İhsan Tank]

Merhabalar;
çalışma kitabımda bir hücreye formül yazdım formülüm =A1+A2 gibi bir formül ve sonucu 20 buluyor diyelim. istediğim şu bu 20 değerini değer olarak herhangi bir hücreye nasıl otomatik kopyalatabilirim.

merhaba
bir module bu kodu kopyalayın. ve butona atayarak deneyin.

Sub değer()
Range("B5").Copy
Range("B7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
skipblanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

[opossum]

eyvallah çalıştı

 

[İhsan Tank]

eyvallah çalıştı

kolay gelsin
:yazici:

 

[Dikenlitel]

Selamlar
yukarıdaki formül aynı sayfa içinde çalışıyor. peki sayfa 1 deki formül sonucunu sayfa 2 de veri olarak nasıl kopyalayabiliriz.

 

[İhsan Tank]

Selamlar
yukarıdaki formül aynı sayfa içinde çalışıyor. peki sayfa 1 deki formül sonucunu sayfa 2 de veri olarak nasıl kopyalayabiliriz.

merhaba

Sub değer()
Range("B5").Copy
Sheets("[COLOR="red"]Sayfa2[/COLOR]").Range("[COLOR="Blue"]A1[/COLOR]").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
skipblanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

kırmızı olan yere sekme adı ( sayfa adı ) mavi olan yere hücreyi yazarak deneyiniz.
sayfa2 a1 hücresine değer olarak gösterir

 

[Dikenlitel]

Eyvallah kolay gelsin

 

[İhsan Tank]

Eyvallah kolay gelsin

sizede kolay gelsin
:yazici:

 

[daysee]

hocam B5 i B7 ye kopyalarken hücre değerinin başına başka birşey yazarak yapıştırma örneği verebilirmisin. Örnek B5=10 ise B7=Salı10 yazsın gibi.

 

[Emir Hüseyin Çoban]

hocam B5 i B7 ye kopyalarken hücre değerinin başına başka birşey yazarak yapıştırma örneği verebilirmisin. Örnek B5=10 ise B7=Salı10 yazsın gibi.

. . .

Sub KOD()
    If Range("B5") = 10 Then
        Range("B7") = "Salı" & Range("B5").Value
    End If
End Sub

. . .