inputbox ile değişken belirleme

[k0081]

merhaba arkadaşlar;

aşağıda vermiş olduğum kodlardaki sayfa isimlerini (kırmız ile işaretli kısım) inputbox kullanarak nasıl değiştirebilirim ?

inputbox a beton yazdığımda kolon ifadeleri değişsin beton olsun...

Sheets[COLOR="Red"]("kolon").[/COLOR]Activate 
For Each hucre In Worksheets[COLOR="red"]("kolon")[/COLOR].Range

yardımcı arkadaşa şimdiden teşekkürler..

 

[Muzaffer Ali]

Aşağıdaki gibi mi istiyosunuz?

Sub SayfaAdiDegistir()
    Dim YeniIsim As String
    YeniIsim = InputBox("Sayfa adı giriniz")
    If YeniIsim = "" Then
        MsgBox "Yeni İsim boş olamaz"
        Exit Sub
    End If
    ActiveSheet.Name = YeniIsim
End Sub

 

[k0081]

evet hocam bu şekilde.. yazdığınız kodu tabloya ekledim. ilk kısım için tamamdır.. ama şu worksheet("kolon") burayı nasıl değiştireceğim..? yani worksheet.yeniIsim gibi bişeyler yazdım fakat olmadı..

 

[Muzaffer Ali]

ismi değiştirilecek olan sayfanın adı sürekli kolon olarak geçiyosa aşağıdaki şekilde olacak

Sub SayfaAdiDegistir()
    Dim YeniIsim As String
    YeniIsim = InputBox("Sayfa adı giriniz")
    If YeniIsim = "" Then
        MsgBox "Yeni İsim boş olamaz"
        Exit Sub
    End If
    sheets("kolon").Name = YeniIsim
End Sub

ilk verdiğim kodlar aktif olan sayfanın adını değiştirir

bu verdiğim kodlar sadece adı kolon olan sayfanın adını değiştirir.

 

[k0081]

Hocam kodları tekrar inceledimde;; evet ilk vermiş olduğunuz kod sayfa adını değiştiriyor.. bunu fark etmemiştim.. böyle olmayacak.. sayfa adı sabit kalacak hocam.. Sadece bir değişkende, yani inputbox da sorduğunda aynı sayfa ismini ben tekrar gireceğim..

örnek sayfalar;

kolon
beton
temel

vs..

diyelim ki beton sayfasına tıkladım. ve macro çalıştırdım. inputbox a beton isimini gireceğim.. şöylede olabilir sayfayı seçtiğimde otomatik olarak sayfa adı alan bi kodda aynı işi görebilir.. inputbox olmadan...

 

[Korhan Ayhan]

Buradaki amaç nedir?

 

[k0081]

Buradaki amaç nedir?

Hücreleri şifreleme ile ilgili bir kodda , Local değişiklik yapmak.. kod bir modül içinde olduğundan her sayfada çalıştırabiliyorum.. ama sayfa isiminin düzenlenmesi şartı var.. bu şartı da inputbox ile aşmayı düşünüyorum,, yada farklı bir yöntem ile..

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod yapısını kendinize uyarlamayı deneyin.

Kod açılan inputbox nesnesine yazdığınız sayfayı seçer.

Sub TEST()
    Dim Sayfa_Adi, Sayfa As Worksheet
    
    Sayfa_Adi = InputBox("Lütfen işlem yapmak istediğiniz sayfa adını giriniz.", , ActiveSheet.Name)
    If Sayfa_Adi = "" Then Exit Sub
    
    On Error Resume Next
    Set Sayfa = Sheets(Sayfa_Adi)
    On Error GoTo 0
    
    If Not Sayfa Is Nothing Then
        Sayfa.Select
    Else
        MsgBox Sayfa_Adi & " isimli sayfa dosyanızda bulunamadı!", vbCritical
    End If
End Sub

 

[k0081]

Korhan Ayhan;

Hocam çok teşekkürler tamamdır.. Sayfayı seçtiğimde direkt inputbox a sayfa adı geliyor.. Elinize, Yüreğinize sağlık..