Sayfa adı tanımlama

[tamer42]

Merhabalar,
aşağıdaki kod ile hücredeki bilgiyi alırken File_details3! bilgisini sürekli yazmam gerekiyor,

............
Set FilePath = [File_details3!C2]
Set docName = [File_details3!C3]
outputText = [File_details3!C14]
...............

aşağıda olduğu gibi s1 gibi bir sheet adı tanımlayarak kısa olarak yazmak mümkün mü?

Dim s1 As Worksheet
......
Set s1 = Sheets("File_details3")
......................

iyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

Option Explicit
 
Sub ÖRNEK()
    Dim S1 As Worksheet, outputText As String
    
    Set S1 = Sheets("File_details3")
    outputText = S1.Range("C14")
End Sub

 

[tamer42]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

Option Explicit
 
Sub ÖRNEK()
    Dim S1 As Worksheet, outputText As String
    
    Set S1 = Sheets("File_details3")
    outputText = S1.Range("C14")
End Sub

Sn Korhan teşekkürler,

Set S1 = Sheets("File_details3")

outputText = [color=red]s1![C14][/color]

şeklinde yada benzeri bir formatta düzenlenemz mi?

iyi çalışmalar.

 

[Ömer]

Merhaba,

Dim Sf As Worksheet
 
Set Sf = Sheets("File_details3")
 
FilePath = Sf.[C2]

Bu şekilde yazabilirsiniz..

.

 

[tamer42]

Teşekkürler.....

 

[tamer42]

Merhaba,

Dim Sf As Worksheet
 
Set Sf = Sheets("File_details3")
 
FilePath = Sf.[C2]

Bu şekilde yazabilirsiniz..

.

Sn Ömer

FilePath = Sf.[C2]

FilePath değişkenindeki hücre adresini "C2" for ........... next döngüsü içerisinde kullanmak istersek nasıl bir düzenleme yapmak gerekir?

 For j = 1 To 11

           FilePath =Sf.[C & [B][color=red]j[/color][/B] & ]
        
Next j

gibi..

iyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

FilePath =Sf.Cells[COLOR=black](j, "C")

[/COLOR]

 

[tamer42]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

FilePath =Sf.Cells[COLOR=black](j, "C")

[/COLOR]

Sn Korhan Ayhan teşekkürler,

FilePath değişkenini set komutu ile "range" olarak tanımlamak mümkün mü?

set [color=red]FilePath[/color] =Sf.Cells(j, "C")

a= [color=red]FilePath[/color].Value

b= [color=red]FilePath[/color].Interior.Color
..........

gibi....

iyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Tabiki mümkün.

Kodlarınızın ilk satırına yani değişken tanımlamalarını yaptığınız bölüme aşağıdaki eklemeyi yaparsanız "FilePath" değişkenini "Range" olarak kullanabilirsiniz.

Dim FilePath As Range