Sorgu için arama sonuçları: MultiSelect:=true

Teşekkürler Necdet Hocam

...Sub test12() Dim FileToOpen As Variant Dim FileName As Variant FileToOpen = Application.GetOpenFilename(MultiSelect:=True) If IsArray(FileToOpen) Then For Each FileName In FileToOpen MsgBox FileName Next FileName...

...As Variant Dim strFileName As String Dim i As Long Dim str As String fileToOpen = Application.GetOpenFilename(MultiSelect:=True) If IsArray(fileToOpen) Then For i = LBound(fileToOpen) To UBound(fileToOpen) strFileName = fileToOpen(i)...

...Dim PicFormat As String Dim Rng As Range Dim sShape As Shape On Error Resume Next PicList = Application.GetOpenFilename(PicFormat, MultiSelect:=True) xColIndex = Application.ActiveCell.Column If IsArray(PicList) Then xRowIndex = Application.ActiveCell.Row For lLoop = LBound(PicList)...

Hocam benim listboxta çalışmamasının sebebini buldum. Listbox Multiselect seçili olması, Single olunca çalışıyor ama çoklu olunca bu kod çalışmıyor, bunu çoklu kodda da nasıl çalıştırabilirim hocam. Yüzdük yüzdük kuyruğuna geldik. Multiselect için kullandığım kod, çoklu seçimleri hücreye...

Herkese merhaba. Aşağıda hali hazırda kullanmakta olduğum kodlar mevcut bu kodlarda nasıl bir değişiklik yaparak listboxta görüntülediğim son 20 veriyi listeleye bilirim? Bu şekilde listboxa 1000 adet veri getiriyor. Yardımlarınız için şimdiden çok teşekkürler Private Sub UserForm_Initialize()...

Kapalı dosya adı ile sayfa adı aynı. "Select * From [exportExcel$A2:P] bu kısımdaki sayfa adını dinamik hale nasıl getirebiliriz. Kapalı dosyanın adını sayfa adına endekslemek istiyorum. Sub Maas_Bordro_Aktar() Application.ScreenUpdating = False Dim Dosya As Variant, Bağlanti...

...GoTo 0 Dosya_Yolu = Application.GetOpenFilename(FileFilter:="Excel Dosyaları (*.xls;*.xlsx;*.xlsm),*xls;*.xlsm;*.xlsx", MultiSelect:=True) If Not IsArray(Dosya_Yolu) Then MsgBox "Dosya seçimi iptal edildi!", vbCritical Exit Sub End If Set...

For i = 0 To ListBox8.ListCount - 1 If ListBox8.Selected(i) = True Then s1.Range(s1.Cells(i, baslangic), s1.Cells(i, bitis)).ClearContents End If Next Halit bey kolay gelsin. Renklendirilmiş satırda, "Application-defined or object-defined error" hatası verdi. Listboxtan seçilen değerler...

Öncelikle UserForm_Initialize olayının içine şu kodları koy ListBox1.Clear ListBox1.ListStyle = 1 ListBox1.MultiSelect = 1 sonra da bunu bir dene For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) = True Then s1.Range(s1.Cells(i, baslangic), s1.Cells(i, bitis)).ClearContents End If Next

...Excel Workbooks(*.xls;*.xlsx;*.xlsb;*.xlsm),*.xls;*.xls;*.xlsx;*.xlsb;*.xlsm", _ Title:="Select Files to Proceed", MultiSelect:=True) On Error GoTo errPlace With Application .DisplayAlerts = False .ScreenUpdating = False .EnableEvents = False...

kodları bu şekilde değiştirdim fakat "WorksheetFunction sınıfının Match özelliği alınamıyor" hatası veriyor.

Aşağıdaki gibi deneyin. Ancak rowsource özelliği ile tüm veriler yüklenmediği için sütun başlıklarınızı kullanamazsınız. Mutlaka kullanmak istiyorsanız bence bu başlıkları listboxın dışına label ile oluşturun. Ayrıca ilk baştaki döngünün amacını anlayamadım. Bu kullanım şeklinde gereksiz...

Levent bey yanıtınız için teşekkür ederim. Checkbox kullanmaktaki amacım iş yoğunluğunda vakit kazanmak. Çünkü gerçekten el ile veri girmeye uğraşmaya pek vakit olmayacak durumda oluyoruz. Ama şöyle birşey de olabilir. Private Sub UserForm_Initialize() Dim i As Long Dim s As String ' s =...

Cevabınız için çok teşekkür ederim bir fonksiyon yardımıyla ar kodu sormayı atladım. Fakat şimdi bir sorunum daha var. Fonksiyonları ekledikten sonra sendkeys komutları düzgün çalışmıyor. Örneğin whatsapp'a 6 satır mesaj gönderiyorum. her mesajı yazdıktan sonra alt+enter yapmasını istiyorum...

Arkadaşlar merhaba. Selenium ile kendi hazırlamış olduğum bir tablodaki verileri hangi satırdakini göndermek istediğimi seçerek gönderebileceğim bir çalışma yaptım. Fakat bir sorunum var. Mesaj gönderimini tamamladıktan sonra chrome'u kapatıyor ve her seferinde QR kodunu okutmadan giremiyorum...

...çoklu dosya seçimi yapabiliyor. Kaynak_Dosya = Application.GetOpenFilename(FileFilter:="Excel Dosyası, *.xls; *.xlsx; *.xlsm", MultiSelect:=True) Rem Eğer kullanıcı hedef dosya seçimini yapmadıysa bilgilendirme mesajı veriyoruz ve makroyu sonlandırıyoruz. If IsArray(Kaynak_Dosya)...

...Exit Sub End If Kaynak_Dosya = Application.GetOpenFilename(FileFilter:="Excel Dosyası, *.xls; *.xlsx; *.xlsm", MultiSelect:=True) If IsArray(Kaynak_Dosya) = False Then MsgBox "İşleme devam edebilmeniz için aktarılacak verileri içeren dosyaları seçmelisiniz!", vbCritical...

Arkadaşlar kolay gelsin, Sn. Korhan ayhanın yazdığı bu kod ile birden fazla kapalı dosyadan alınan 4 sütundaki verileri hedef dosyaya farklı sütunlara yazıyordu. aynı yöntemle birden fazla kapalı dosyadan ilk 9 sütundan alınan verileri hedef dosyadaki yine ilk 9 sütuna son satırdan itibaren...