karma kutu(combobox) ta farklı sayfaları farklı boxlara atama

[gelen gecer mdmx]

başlık biraz karışık oldu ama şöyle ifade edeyim. Şimdi exceldeki tüm çalışmal sayfalarını bi comboboxa atp oradan link verebiliyorum ama iki adet comboboxım var ve adları "a" "b" ve "c" olan sheetleri combobox1 e "d" "e" ve "f" olan sheetleri combobox 2 ile açmak istiyorum. yardımlar için şimdiden teşekkürler.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub ComboBox1_Change()
Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox2_Change()
Sheets(ComboBox2.Text).Select
End Sub
Private Sub UserForm_Initialize()
Dim I As Integer
For I = 1 To Sheets.Count
If Sheets(I).Name = Sheets("a").Name Or Sheets(I).Name = Sheets("b").Name Or Sheets(I).Name = Sheets("e").Name Then
ComboBox1.AddItem Sheets(I).Name
Else
ComboBox2.AddItem Sheets(I).Name
End If
Next
End Sub

 

[gelen gecer mdmx]

çok sağolun sanırım bu işe yarar.şirket programı olduğu için yollayamadım anlayışınız için teşekkürler

 

[gelen gecer mdmx]

yok bakıyorum algoritma gayet güzel ama program çalışmıyor.program ektedir sorunu çözebilirseniz çok sevinirim.

 

[BG]

merhaba

yok bakıyorum algoritma gayet güzel ama program çalışmıyor.program ektedir sorunu çözebilirseniz çok sevinirim.

program çalışıyor, siz ne yapmak istiyorsunuz?

 

[gelen gecer mdmx]

bereket yazan sayfada iki tane combox var alttaki sheetlerin (örn:NPU 3 Kirişli) code'da belirttiklerim dışındakilerini (örn: sayfa2 sayfa3) ikinci box ta açılmasını istiyorum

 

[gelen gecer mdmx]

evet çalışıyor program pardon iki şey daha soracağım
1-bi sayfa iki listede olsun istemiyorum nasıl bi eklenti yapmalıyım code a
2-exceldeki verileri
Private Sub CommandButton1_Click()
fName = Application.InputBox("Dosya ismi girin...", "Dosya")
If fName <> 0 Then
ActiveSheet.Name = fName
f = InputBox("Ka&#231;&#305;nc&#305; Sat&#305;ra Kadar Aktars&#305;n?", "Aktar&#305;lacak B&#246;lge")
Range("A1: &#305;" & f).Copy
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.ActiveDocument.PageSetup.Orientation = wdOrientLandscape
objword.Selection.PasteSpecial Link:=False, DataType:=2
objword.ActiveDocument.SaveAs "C:\" & fName & ".doc"
End If
Application.CutCopyMode = False
End Sub

ile worde aktar&#305;yorum ama resimleri aktaram&#305;yorum onlar&#305; da aktarmak i&#231;in napmam laz&#305;m?

 

[gelen gecer mdmx]

ayr&#305;ca program ilk ba&#351;lad&#305;&#287;&#305;nda comboboxlar a&#231;&#305;lm&#305;yor ba&#351;ka bir sayfaya gidip anamen&#252; linkine t&#305;klad&#305;&#287;&#305;m anda comboboxlarda istedi&#287;im linkler g&#246;z&#252;k&#252;yor. bunun sebebi ne olabilir?

 

[BG]

Merhaba

evet çalışıyor program pardon iki şey daha soracağım
1-bi sayfa iki listede olsun istemiyorum nasıl bi eklenti yapmalıyım code a
2-exceldeki verileri
Private Sub CommandButton1_Click()
fName = Application.InputBox("Dosya ismi girin...", "Dosya")
If fName <> 0 Then
ActiveSheet.Name = fName
f = InputBox("Kaçıncı Satıra Kadar Aktarsın?", "Aktarılacak Bölge")
Range("A1: ı" & f).Copy
Set objword = CreateObject("Word.Application")
objword.Visible = True
Set MyDoc = objword.Documents.Add(DocumentType:=wdNewBlankDocument)
objword.ActiveDocument.PageSetup.Orientation = wdOrientLandscape
objword.Selection.PasteSpecial Link:=False, DataType:=2
objword.ActiveDocument.SaveAs "C:\" & fName & ".doc"
End If
Application.CutCopyMode = False
End Sub

ile worde aktarıyorum ama resimleri aktaramıyorum onları da aktarmak için napmam lazım?

dosya ekini inceleyiniz.