combobox,commandbutton yardım

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

combobox,commandbutton yardım

İleti#1)  jinken » 15 Mar 2019 19:27

Merhaba Arkadaşlar,
comboboxta seçim yaparak seçtiğim ada göre klasörün commandbutton ile açılmasını istiyorum.
comboboxta gözükmesini istediğim klasörler aşağıdaki gibidir. Comboboxta seçim yaparak, commandbutton ile klasörün açılması gerekiyor.

‪C:\Users\ucary\OneDrive\Desktop\deneme
C:\Users\ucary\OneDrive\Desktop\çalışma
C:\Users\ucary\OneDrive\Desktop\çalışma\doruk
Kullanıcı avatarı
jinken
Yeni Başlamış
 
Adı Soyadı:yunus uçar
Kayıt: 26 Eyl 2010 13:53
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

Cevap: combobox,commandbutton yardım

İleti#2)  xpeker » 16 Mar 2019 22:15

Deneyin.
Kod: Tümünü seç
Private Sub CommandButton1_Click()
On Error GoTo hata
ChDir "c:\Users\" & ComboBox1.Text

dosya = Application.GetOpenFilename(FileFilter:="," & _
        "*.xls;*.doc;*.bmp;*.jpg;*.gif;*.pdf;*.mdb", _
        Title:="Lütfen dosya seçimi yapınız") ' uzantı eklemeleri yapabilirsiniz
    If dosya = False Then ' eğer vazgeçe basarsanız
        MsgBox "Dosya seçme işleminden vazgeçildi"
        Exit Sub
        End If
    Exit Sub
hata:
    MsgBox "Klasör bulunamdı", vbCritical, "UYARI"
End Sub
Kullanıcı avatarı
xpeker
Siteye Alışmış
 
Kayıt: 05 Oca 2015 17:41
Meslek: memur
Yaş: 38
İleti: 149
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Balıkesir

Cevap: combobox,commandbutton yardım

İleti#3)  xpeker » 16 Mar 2019 22:17

Yazmayı unuttum Combobox'a alacağınız klasör yolları aşağıdaki şekilde olmalı;
Kod: Tümünü seç
ucary\OneDrive\Desktop\deneme
ucary\OneDrive\Desktop\çalışma
ucary\OneDrive\Desktop\çalışma\doruk
Kullanıcı avatarı
xpeker
Siteye Alışmış
 
Kayıt: 05 Oca 2015 17:41
Meslek: memur
Yaş: 38
İleti: 149
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Balıkesir

Cevap: combobox,commandbutton yardım

İleti#4)  Enes Recep BAĞ » 16 Mar 2019 22:19

Merhaba,
Dener misiniz?

Kod: Tümünü seç
Private Sub ComboBox1_Change()
If ComboBox1.Text <> Empty Then
CommandButton1
.Enabled = True
Else
CommandButton1.Enabled = False
End If
End Sub

Private Sub CommandButton1_Click
()
Shell "explorer.exe " & ComboBox1.Text & "\", vbNormalFocus
End Sub

Private Sub UserForm_Initialize()
    With ComboBox1
        .Clear
        .AddItem "
C:\Users\" & Environ("username") & "\OneDrive\Desktop\deneme"
        .AddItem "
C:\Users\" & Environ("username") & "\OneDrive\Desktop\çalışma"
        .AddItem "
C:\Users\" & Environ("username") & "\OneDrive\Desktop\çalışma\doruk"
    End With
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 15:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 37
İleti: 8259
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe