Combobox Row Sourse

[tamer42]

Merhaba,

ComboBox1.RowSource="Sheet2!A1:D1"

Kodunda;

Sheet2 yerine;

Set sh2 = Sheets("Sheet2") 
ComboBox1.RowSource="Sheet2!A1:D1"

ataması yaparak nasıl düzenleyebiliriz?


teşekkürler,
iyi Çalışmalar.

 

[halit3]

Bunu bir dene

Set sh2 = Sheets("Sheet2")
ComboBox1.RowSource = sh2.Name & "!A1:D1"

Set sh2 = Sheets("Sheet1")
ComboBox1.RowSource = sh2.Name & "!A1:D1"

 

[tamer42]

Bunu bir dene

Set sh2 = Sheets("Sheet2")
ComboBox1.RowSource = sh2.Name & "!A1:D1"

Set sh2 = Sheets("Sheet1")
ComboBox1.RowSource = sh2.Name & "!A1:D1"

Sn Halit Bu durumda sadece A1 hücresi gelmekte, yatay olduğunda bir sorun oluyor anladığım kadarıyla.....

 

[tamer42]

Sn Halit Bu durumda sadece A1 hücresi gelmekte, yatay olduğunda bir sorun oluyor anladığım kadarıyla.....

aynı sütun olduğu zaman bir sorun olmuyor.

Set sh2 = Sheets("Sheet1")
ComboBox1.RowSource = sh2.Name & "!A1:A4"

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Private Sub UserForm_Initialize()
    Dim Sh As Worksheet
    Set Sh = Sheets("Sheet2")
    ComboBox1.List = Application.Transpose(Sh.Range("A1:D1"))
End Sub

 

[tamer42]

Aşağıdaki gibi deneyiniz.

Private Sub UserForm_Initialize()
    Dim Sh As Worksheet
    Set Sh = Sheets("Sheet2")
    ComboBox1.List = Application.Transpose(Sh.Range("A1:D1"))
End Sub

Sn Korhan çok teşekkürler

 

[tamer42]

Bunu bir dene

Set sh2 = Sheets("Sheet2")
ComboBox1.RowSource = sh2.Name & "!A1:D1"

Set sh2 = Sheets("Sheet1")
ComboBox1.RowSource = sh2.Name & "!A1:D1"

Merhaba,
Aşağıdaki kodda; ListNames1' i tanımlarken Range yerine Cell (satır ve sutun değerleri) kullanarak nasıl yapabiliriz?

Set sh = Sheets("Sayfa1")

sh.Range("B4:B5").Name = "ListNames1"
CmbBox1.List = sh.Range("ListNames1").Value

bu şekilde denedim fakat olmadı,

sh.Range(Cells(4, 2), Cells(5, 2)).Name = "ListNames1"

Teşekkürler,

iyi Çalışmalar.

 

[Hepgel]

Merhaba @tamer42

Range parantezi içindeki Cells lerin başına sh. ekleyin. Şöyle:

sh.Range(sh.Cells(4, 2), sh.Cells(5, 2)).Name = "ListNames1"

 

[tamer42]

Merhaba @tamer42

Range parantezi içindeki Cells lerin başına sh. ekleyin. Şöyle:

sh.Range(sh.Cells(4, 2), sh.Cells(5, 2)).Name = "ListNames1"

teşekkürler,

Aşağıdaki gibi bir yöntemde buldum ama; burada tanımlamam yapılabilir mi bilemiyorum

Me.CmbBox1.List = sh.Cells(4, 2).Resize(2).Value
[code]

 

[Hepgel]

Alan tanımlaması sh.[A1].Resize(3, 5) gibi de yapılabilir.
Burda A1 den itibaren a1 dahil 2 satır 5 sütunluk alan tanımlanmış oldu

 

[tamer42]

Alan tanımlaması sh.[A1].Resize(3, 5) gibi de yapılabilir.
Burda A1 den itibaren a1 dahil 2 satır 5 sütunluk alan tanımlanmış oldu

Teşekkürler

 

[Hepgel]

Rica ederim.
İyi Çalışmalar.

 

[tamer42]

Merhaba @tamer42

Range parantezi içindeki Cells lerin başına sh. ekleyin. Şöyle:

sh.Range(sh.Cells(4, 2), sh.Cells(5, 2)).Name = "ListNames1"

Merhaba,

Burada "ListeNames1" tanımlaması içinde 2 değer mevcut;
1: sh.Cells(4, 2)
2: sh.Cells(5, 2)

ListeNames1' i tanımladıktan sonra 1. değerini ve 2. değeri almak için nasıl bir yol izlemek gerekir?

Msgbox  ListeNames1 (1)
Msgbox  ListeNames1 (2)

gibi.....

Teşekkürler,

iyi çalışmalar.

 

[Hepgel]

Merhaba,

Burada "ListeNames1" tanımlaması içinde 2 değer mevcut;
1: sh.Cells(4, 2)
2: sh.Cells(5, 2)

ListeNames1' i tanımladıktan sonra 1. değerini ve 2. değeri almak için nasıl bir yol izlemek gerekir?

Msgbox  ListeNames1 (1)
Msgbox  ListeNames1 (2)

gibi.....

Teşekkürler,

iyi çalışmalar.

Merhaba ,

Bu şekilde deneyin.

MsgBox Evaluate("=INDEX(ListeNames1,1)")

 

[tamer42]

Merhaba ,

Bu şekilde deneyin.

MsgBox Evaluate("=INDEX(ListeNames1,1)")

çok teşekkürler,

 

[Hepgel]

Rica Ederim.
İyi Çalışmalar.