Merhaba Arkadaşlar,
Excelde bir sekmeden diğer sekmeye "=" ile kopyalama işlemini yapıyorum ve istediğim değer diğer sekmeye geliyor,buraya kadar tamam. Diğer sekmeye gelen değerin biriminin fiyat tipininde gelmesini istiyorum.

Örneğin; Sayfa1'de A1 hücresinde 5,24 TL var

Sayfa2'nin A1 hücresine =Sayfa1!A1 yazıyorum ve hücreye 5,24 geliyor ama ben buraya TL 'nin atmasını istiyorum.

NOT: 1-Forumda arama yaptığımda kamera özelliğinden bahsedildiğini gördüm ancak bu benim işime yaramıyor.Çünkü diğer tarafta hesaplama yapmama izin vermiyor.
2- Hücre biçimlendirme işlemide işime yaramıyor,çünkü bir üst satırda TL varken alt satırda $ olabiliyor.

Bu konuda yardımınızı bekliyorum.

Sizin sorununuza ancak makro çözüm olur. Aşağıdaki kodları sayfa2 nin kod sayfasına yapıştırın. Yine aynı şekilde örneğin; veri alacağınız hücreye =Sayfa1!A1 yazın ve aşağı doğru kopyala yapıştırla aşağıdaki satırlara da kopyalayın. Sayfa2 isimli çalışma sayfasın seçilip herhangi bir hücre tıklandığı zaman otomatik olarak verileriniz sayfa1 deki gibi biçimlenecektir.

Kod: Tümünü seç

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Hücre As Range, FORMÜL As String, SAYFA As String, ADRES As String
On Error GoTo Son
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each Hücre In Cells.SpecialCells(xlCellTypeFormulas, 23)
If InStr(1, Hücre.Formula, "!") > 0 Then
FORMÜL = Hücre.Formula
SAYFA = Replace(Mid(Hücre.Formula, 1, InStr(1, Hücre.Formula, "!") - 1), "=", "")
ADRES = Replace(Mid(Hücre.Formula, InStr(1, Hücre.Formula, "!") + 1, 255), "=", "")
Sheets(SAYFA).Range(ADRES).Copy Hücre
Hücre.Formula = FORMÜL
End If
Next
Son:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

Kolay gelsin

Evet dediğiniz gibi ancak makro ile çözümleniyor. Yardımınız için teşşekür ederim.