Dosya Birleştir

[ayagiz44]

Kırmızı olan sütunda formülleri yapıştırıyor
C ve D sütunlarıda ( Adı Soyadı, Ünvan ) formül var Sayfa birleştirirken diğer alanları kopyala yapıştır yapıyor ançak bahsettiğim sütunlarda formülleri yapıştırıyor haliyle #BAŞV! hatası veriyor oysa metne çevirerek yapıştırmasını istiyorum VBA şifresi yok
Selamlar

http://www.dosya.tc/server10/fouqg4/BIRLESTIR.rar.html

 

[ayagiz44]

Yanlış hatırlamıyorsam
Sayın Asri yapmıştı Makroyu

 

[Asri]

Kod içindeki ActiveSheet.Paste bilgisini

ActiveSheet.PasteSpecial xlPasteValues olarak değiştirip deneyiniz.

 

[ayagiz44]

Sub Sayfa_Birlestir()
Application.DisplayAlerts = False

If SheetExists(sayfaadi) = False Then Exit Sub

Sheets(sayfaadi).Select
Cells(1, 1).Select
ilksonsatir = icmalsonsatir

If ilksonsatir > enfazla Then
MsgBox ("Veriler " & enfazla & " satır sayısını geçti. Aktarım tamamlanamadı.")
GoTo atla
End If

gelensonsatir = Cells(Rows.Count, "C").End(3).Row
For i = 8 To gelensonsatir
gec = Cells(i, 3).Value
If gec = "" Then Exit For
Next i
gelensonsatir = i - 1

yenialan = alan & gelensonsatir
Range(yenialan).Select
Selection.Copy
Workbooks(icmaldosya).Activate

If icmalsonsatir > 8 Then icmalsonsatir = icmalsonsatir + 1

If ilksonsatir + gelensonsatir > enfazla Then
GoTo atla
End If

Range("B" & icmalsonsatir).Select
ActiveSheet.PasteSpecial xlPasteValues ' hata verdi
Cells(1, 1).Select
icmalsonsatir = icmalsonsatir + gelensonsatir - 8
Windows(eskidosya).Activate
Cells(1, 1).Select

atla:

Application.DisplayAlerts = False

End Sub

 

[Asri]

Bu şekilde dener misiniz?



Selection.PasteSpecial Paste:=xlPasteValues

 

[ayagiz44]

Sayın Asri
bu oldu galiba hata vermedi emeğinize sağlık selamlar.