Formül icini degiştirme..

[Rainbows]

merhaba arkadaşlar.

Sub YeniMüşteri()

müşteri = InputBox("Lütfen Müşteri ismini giriniz.")
Dim alan As Excel.Worksheet
Set alan = Worksheets.Add(after:=Worksheets(Worksheets.Count))
alan.Name = müşteri

Sheets("ÖZET BİLGİ").Select
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("a1").Value = "" Then
Range("a1").Value = ""
Range("a1").Select
Else
Selection.EntireRow.Insert
ActiveCell.Value = müşteri

ActiveCell.Offset(0, 1).Value = "=+SUM(IF(AVON!R4C3:R2500C3=""FATURAMIZ "",IF(AVON!R4C10:R2500C10<0,AVON!R4C5:R2500C5,0),0))"
ActiveCell.Offset(0, 2).Value = "=+SUM(IF(ADD!R4C10:R2500C10=0,IF(ADD!R4C3:R2500C3=""FATURAMIZ "",ADD!R4C5:R2500C5,0),0))"
ActiveCell.Offset(0, 4).Value = "=+IF(RC[-3]=0,0,SUMPRODUCT(ÜLKER!R4C5:R2500C5,ÜLKER!R4C10:R2500C10)/RC[-3])"



End If

bu örnekte formül icindeki avon yerine yeni oluşturulan müşteri isminin gelmesini istiyorum. bana bu konuda yardımcı olursanız sevinirim..


End Sub

 

[Rainbows]

örnek dosya ekte..

 

[Rainbows]

yok mu yardımcı olabilecek bi arkadaş.

 

[Mx@Raid]

kardeş orijinal dosyayı gönderebilir misin?
burada yapılan değişiklikler den dolayı doğru sonucu bulmak zor. Yeni müşteri adına sayfa açıyor lakin eksiklikler olduğu için elde edilecek sonuç yanlış olabilir.