sayfadaki formullü değerleri başka sayfaya makroyla yapı

[bistrobellman]

Set s2 = Sheets("sayfa2")

s2.[a265536].ClearContents
Worksheets("YURTICI").Select: Range("A1").Select: Selection.AutoFilter:

Selection.AutoFilter Field:=2, Criteria1:=ComboBox9
Selection.AutoFilter Field:=3, Criteria1:=ComboBox8
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 13

[a1].CurrentRegion.Copy
s2.[a1].PasteSpecial '>>>> " BURANIN DÜZELTİLMESİ GEREK!!!"
Application.CutCopyMode = False


>>> YURTICI SAYFASINDA SÜZÜLEN DEÐERLERDE m sütunu formullüdür. tüm satırı kopyalayıp s2(sayfa2 ye) yapıştırdığında
herşey tamam SADECE M SUTUNU formul içerdiğinden "0,000" ÇIKIYOR. KODDAKİ ÃžU SATIRI:

s2.[a1].PasteSpecial SATIRINI
s2.[a1].PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
DEÐERLERİ YAPIÞTIRSIN bu yolla FORMUL SONUCU DA CIKAR DİYE DÜÞÜNDÜM YİNE SAYFA 2 DE "0,000" gördüm: rakamı göremedim.

 

[nihatkocaoglan]

DOSYAYI ATSANIZ DENEMEK İÇİN HER ÞEYİ BİZİM DE YAPMAMIZA GEREK KALMAZ SANIRIM, HEM O ZAMAN SADECE DÜZELTME YAPIP GÃ?NDERİLEBİLİR.

 

[Levent Menteşoğlu]

Sadece aşağıdaki gibi yazmanız yeterlidir, bu durumda sadece değerleri kopyalayacaktır. Fakat sizin yazdığınız satırda da bir anormallik yok, çalışması gerekir.

s2.[a1].PasteSpecial Paste:=xlValues