otomatik eklenen combobox a linkedcell verme

[Rainbows]

merhabalar bir türlü beceremedim ama söyle bir sorunum var ekli dosyada sheet2 de ekle butonuna tıklayınca a4 e combobox ve formul ekleniyor ama eklenen her combobox ın linkedcell ine b4 ve listfillrange ine de "data!a1:b2000" olmasını istiyorum

bu konuda yardımcı olursanız sevinirim.

 

[Rainbows]

yok mu yardımcı olabilecek bir arkadaş

 

[Rainbows]

Yok mu bunun bir cözümü???????

 

[Rainbows]

Güncel.........

 

[Rainbows]

sorunum mu anlasılmadı. yok mu yardımcı olabilecek birisi. (

 

[mancubus]

forumda aynı konuda bol miktarda örnek olduğu için cevap alınamayabilir.
xl2003 formatındaki örnekler daha çok üye tarafından görüntülenmektedir.


deneyin.

dosyadaki mevcut combo'larda Data!A2: D20000 şeklinde idi. burada da öyle oldu.

Sub sutunekle()

Dim lfRng As String
lfRng = "Data!A2:D20000"

Rows("5:5").Select
Selection.Copy
Rows(4).Insert xlDown
Rows("4:4").Select
ActiveSheet.Paste

With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
    DisplayAsIcon:=False, Left:=1.25, Top:=137.5, Width:=433.75, Height:=25)
    .LinkedCell = "B4"
    .ListFillRange = lfRng
End With

End Sub

 

[Rainbows]

cevap icin tesekkürler..

Burada eklenen combobox ı silme sansım varmı veya sayfanın ilk haline nasıl dönderebiliriz.

temizle butonuna tıkladıgım zaman örnegin 10 tane satır olmasını nasıl saglayabilirim.

 

[mancubus]

rica ederim.

satır numarası üzerinde sağ klik ve sil ile o satırı ve combo yu silebilirsiniz.

kodlardan gördüğüm kadarı ile temizle isimli kod F4:F22 araalığı ile B22 hücresini siliyor. bunun yerine başka bir şey mi istiyorsunuz? bu butona tıklandığında 10 satır olması ne demek?

 

[Rainbows]

Satır numarası üzerine sag tık yapıp delete dedigim zaman sadece satırı siliyor. combobox silinmiyor digerinin üzerine geliyor. disagn modda bakarsanız görürsünüz.

10 satırdan kastım sayfanın ilk acılmıs hali yani benim hic satır eklememiş hali.

 

[halit3]

Bunu denrmisiniz

Satırları siz kendinize göre siliniz bu sadece nesnelerin hepsini siliyor ve 10 adet yeniden oluşturuyor.

Sub Ekle_Nesne()
Dim kom As OLEObject
For Each kom In Sheets(ActiveSheet.Name).OLEObjects
If TypeOf kom.Object Is MSForms.ComboBox Then
kom.Delete
End If
Next
Dim Obj As Object
Dim Cell As Range
For i = 4 To 14
Cells(i, 1).Select
Set Cell = Cells(i, 1)
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1")
With Obj
.Left = 1.25
'.Top = 137.5
.Height = 25
.Width = 433.75
.LinkedCell = "b" & i
.ListFillRange = "data!a2:a500"
End With
Next

End Sub

 

[mancubus]

Satır numarası üzerine sag tık yapıp delete dedigim zaman sadece satırı siliyor. combobox silinmiyor digerinin üzerine geliyor. disagn modda bakarsanız görürsünüz.

10 satırdan kastım sayfanın ilk acılmıs hali yani benim hic satır eklememiş hali.

evet. satır/sütun silmek nesneyi silmez. sabahın 3:30'unda Run Time Error vermişiz.

 

[Rainbows]

Bu sekilde oldugu zaman bütün comboboxların linkedcell leri b4 oluyor. öyle de olunca olmuyor.

söyle bir sey yapılabilir mi mesela backup diye bir sheet olsa ben temizle dedigim zaman calıstıgımız sayfanın (Sheet2) icerigini backup ile change edilebilir mi?

 

[halit3]

Bu sekilde oldugu zaman bütün comboboxların linkedcell leri b4 oluyor. öyle de olunca olmuyor.

söyle bir sey yapılabilir mi mesela backup diye bir sheet olsa ben temizle dedigim zaman calıstıgımız sayfanın (Sheet2) icerigini backup ile change edilebilir mi?

10 nolu mesajdaki kodu düzelttim yeniden denermisiniz.

 

[Rainbows]

Yardımlarınız icin tesekkürler.

tam da istedigim gibi oldu.

 

[halit3]

Yardımlarınız icin tesekkürler.

tam da istedigim gibi oldu.

iyi çalışmalar