Bir Kelime İçindeki Sayıları değiştirebilmek..

[k.guclu]

İyi Günler Excel Üstatları:hihoho:

Ben excelde sayfa kopyalamayı makro ile yapıyorum. Fakat kopyalarken kopyaladığım sayfanın içinde bulunan numaraların bir üstünü vermek istiyorum.

Örnek:
Kopyalanacak Sayfanın Adı: KS-1ÜF
Kopyaladığım Sayfanın Adı :KS-2ÜF
veya
Kopyalanacak Sayfanın Adı: HS/1ÜF
Kopyaladığım Sayfanın Adı :HS/2ÜF

Bu konuda yardımcı olursanız çok memnun olurum.. Tüm arkadaşlara selam

Arkadaşlar bu konuyla ilgili bir konu var ise bana örnek olabilecek onada razıyım.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod aktif (seçili) olan sayfayı ismini size sorarak kopyalar.

Option Explicit
 
Sub AKTİF_SAYFAYI_KOPYALA()
    Dim SAYFA_ADI As Variant
    SAYFA_ADI = Application.InputBox("SAYFA ADI GİRİNİZ !", "SAYFA ADI TANIMLAMA")
    If SAYFA_ADI = "" Or SAYFA_ADI = False Then Exit Sub
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    ActiveSheet.Name = SAYFA_ADI
End Sub

 

[k.guclu]

Üstat çok sağol zamanın ayırdığın ve cevap verdiğin için

Fakat benim yapmak istediğim şey kritik kanal hesabı yapıyorum ve
cihazların isimlerini kısaltıp numaralar veriyorum.

Mesela:
1. Kopyaladığım Sayfa: KS-1Ü ( Klima Santrali -1 Üfleme Hattı Demek)
2. Kopyalanacak Sayfa: KS-2Ü ( Klima Santrali - 2 Üfleme Hattı Demek)

Fakat 2. maddeki yazının otomatik atmasını istiyorum. benim yaptığım çalışma var ama sayfa üzerinde olduğundan hata veriyor

'Range("I9") = ActiveSheet.Name
sayfa2 = ActiveSheet.Index + 1
sayfa1 = ActiveSheet.Index
Sheets(Array(sayfa1, sayfa2)).Copy Before:=Sheets(Worksheets.Count)
'ActiveSheet.Copy after:=Sheets(Worksheets.Count)
'Sheets(sayfa).Copy after:=Sheets(Worksheets.Count)
'Range("I9").AutoFill Destination:=Range("I9:I10"), Type:=xlFillSeries
'adi = Range("I10")
adi = ActiveSheet + 1
isim = InputBox("Kopyaladığınız Sayfanın Adı Lütfen", "KOPYALA", adi)