- Katılım
- 9 Temmuz 2012
- Mesajlar
- 106
- Excel Vers. ve Dili
- Excel 2007 - Türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
merhaba tavsiye olarak müşteri sayfasını silip yeni bir tane oluşturmanız ama oluştururken başka sayfayı kopyalamayın.
ActiveCell.Offset(0, 4).Value = Fismi.Value
Selection.EntireRow.Hidden = False
ActiveCell.Offset(0, 2).Value = "«»"
ActiveCell.Offset(0, 2).Select
'linke dönüştür
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:="'" & Fismi.Value & "'!A4", _
ScreenTip:=Fismi.Value & " 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, 1).Formula = "='" & Fismi.Value & "'!D14"
'Firma bakiyesini yaz
ActiveCell.Offset(0, 3).Formula = "='" & Fismi.Value & "'!D11"
'Firma telefon no1 yaz
ActiveCell.Offset(0, 4).Formula = "='" & Fismi.Value & "'!D8"
'Firma adres yaz
ActiveCell.Offset(0, 5).Formula = "='" & Fismi.Value & "'!D5"
'Firma email yaz
ActiveCell.Offset(0, 6).Formula = "='" & Fismi.Value & "'!I10"
' Firma nosuna geridön
ActiveCell.Offset(0, -2).Select