activecell.offset

[DeathMoment]

Arkadaşlar çalışmamdaki userform ile verileri kaydettiğimde ilk veride sıkıntı çıkmıyor bütün bilgileri ve formülleri doğru kaydediyor ancak 2. veriyi kaydettiğimde formülleri ='2'!D5 şeklinde bırakıyor bunun sebebinin

ActiveCell.Offset(0, 4).Value = Fismi.Value
Selection.EntireRow.Hidden = False

ActiveCell.Offset(0, 1).Value = "«»"
ActiveCell.Offset(0, 1).Select
'linke dönüştür
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="'" & Fismi.Value & "'!A4", _
ScreenTip:=Fismi.Value & " İsimli Müşteri Sayfasına Gider", _
TextToDisplay:="«»"
    
   Selection.NumberFormat = "@"
    With Selection.Font
        .Name = "Tahoma"
        .FontStyle = "Kalın"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 48
    End With
   
'Firma kayıt tarihi yaz
ActiveCell.Offset(0, 2).Formula = "='" & Fismi.Value & "'!D14"
'Firma bakiyesini yaz
ActiveCell.Offset(0, 4).Formula = "='" & Fismi.Value & "'!D11"
'Firma telefon no1 yaz
ActiveCell.Offset(0, 5).Formula = "='" & Fismi.Value & "'!D8"
'Firma adres yaz
ActiveCell.Offset(0, 6).Formula = "='" & Fismi.Value & "'!D5"
'Firma email yaz
ActiveCell.Offset(0, 7).Formula = "='" & Fismi.Value & "'!I10"

' Firma nosuna geridön
ActiveCell.Offset(0, -1).Select

satırlarından kaynaklandığını düşünüyorum yardımcı olursanız sevinirim.

 

[DeathMoment]

yardımcı olabilecek kimse yok mu?

 

[Zeki Gürsoy]

"müşteri" isimli sayfanın H sütunu biçimi metin olarak kalmış. Bu nedenle yazılan herşey metin olarak kalır.

Biçimi genel yapıp F2 ile düzenleyip Enter uygularsanız düzelir. Veya kaydet kodunu düzenleyin.

 

[DeathMoment]

"müşteri" isimli sayfanın H sütunu biçimi metin olarak kalmış. Bu nedenle yazılan herşey metin olarak kalır.

Biçimi genel yapıp F2 ile düzenleyip Enter uygularsanız düzelir. Veya kaydet kodunu düzenleyin.

teşekkür ederim hocam sorun halloldu