Soru Sayfa Çoğaltma Hakkında.

[yesimgurol]

Merhabalar,
Çalışma sayfamda forumda bulunan örneklerden bakarak oluşturmuş olduğum userform üzerinden "TASLAK SAYFA" sı üzerinden yeniden sayfa oluşturabiliyorum. Sorunum şu ki, "TASLAK SAYFA" sayfası içerisinde kodlar mevcut ve bu kodlar sadece "TASLAK SAYFA" içerisinde çalışmakta.
Userfomda yeni bir sayfa oluştururken sayfa adı değiştiği için kodlar çalışmamaktadır.
Oluşturulan her yeni sayfa da bu kodların çalışabilmesi mümkün müdür? "TASLAK SAYFA"sı içerisindeki kodlar çok uzun olduğundan burada eklememiştim.:-(

 

[Muzaffer Ali]

Merhaba.
Bir sayfanın kod kısmına Range("A1")="Test" kodunu yazar ve çalıştırırsanız, kodun bulunduğu sayfanın A1 hücresine "Test" yazmış olursunuz.

Yani sayfa ismi belirtilmemişse kod bulunduğu sayfada işlem yapar.
Onun için kodun bulunduğu sayfada işlem yapacaksanız sayfa ismini belirtmeyin.

Yani hv.Range yerine sadece Range yazın.
Aşağıdakileri de hiç yazmayacaksınız.

Dim hv As Worksheet
Set hv = Sheets("TASLAK SAYFA")

 

[yesimgurol]

Merhaba Muzaffer bey,

İki adet kod mevcut ;
Bir tanesinde

Set Sayfa = Sheets("TASLAK SAYFA")

bu şekilde sayfa ismi belirtiliyor.

Diğerinde de

Set hv = Sheets("TASLAK SAYFA")

bu şekilde.
Bir önceki mesajınız da belirtmiş olduğunuz gibi "hv.Range " yazan yerlere sadece "Range" yazacağım. Lakin "set hv" de sayfa ismi belirtildiğinden orayı nasıl değiştirmek uygun olacak acaba.

 

[Muzaffer Ali]

Aşağıdakileri de hiç yazmayacaksınız-Sileceksiniz.

Dim hv As Worksheet
Set hv = Sheets("TASLAK SAYFA")

 

[yesimgurol]

Muzaffer bey ,
Uzun olan kodu söylediğiniz şekilde yaptım. Sorun olmadı teşekkür ederim.
Lakin aşağıdaki kodu yapamadım.

Bu kısmı silmiştim.

Dim son As Integer
Set Sayfa = Sheets("TASLAK SAYFA")

Bu kısımlarda sorun oldu ;
son = Sayfa.Cells(Rows.Count, "C").End(3).Row

a = Left(Sayfa.Cells(i, "A").Value, 1)

Sub DDZNLEME()
Dim Sayfa As Worksheet
Dim son As Integer
Set Sayfa = Sheets("TASLAK SAYFA")

son = Sayfa.Cells(Rows.Count, "C").End(3).Row
'Kural 3
For i = 3 To son
a = Left(Sayfa.Cells(i, "A").Value, 1)

If a = "Y" Then
Cells(i, "D") = "C"

ElseIf a = "R" Then
Cells(i, "D") = "T"

ElseIf a = "G" Then
Cells(i, "D") = "A"

ElseIf a = "B" Then
Cells(i, "D") = "G"
Else

End If
Next i

End Sub

 

[Muzaffer Ali]

"TASLAK SAYFA" adlı sayfayı hiçbir değişkene hiç atamayacaksınız.

Dim Sayfa As Worksheet
Set Sayfa = Sheets("TASLAK SAYFA")

yada benzeri hiçbir kod olmamalı "TASLAK SAYFA" sayfası hiçbir değişkene atama yapılmamalı.

Sayfa.Cells yerine Cells
Sayfa.Range yerine Range
yazmalısınız.

 

[yesimgurol]

Tamamdır Muzaffer bey, ilginiz için teşekkür ederim.

 

[YUSUF44]

Bu arada dim ve Set ile yaptığınız tanımlar kodun çalışmasına engel değil. O satırlar kalsa bile kodun kalan bölümünde o tanımlanmış değişkenleri kullanmazsanız sorun olmaz.

 

[yesimgurol]

Teşekkür ederim Yusuf bey ilginiz ve bilgilendirmeniz için.