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

aynı ID ye sahip kayıtların silinmesi çalışıyor. Çok çok çok teşekkür ederim. Fakat çoklu seçimde seçmeme rağmen listeden seçiniz diyor. Sayfamın adı ODEME Listemin adı ODELIST yerlerine koydum ama nerede hata var bulamadım. Listwiev da ayrıca bir ayar mı yapmam lazım (halen Multiselect ve...

Sayfanızda ki TÜM Veri Doğrulaması listelerini Çoklu Seçim e dönüştürür. Veri listesinde her bir seçimi aralara virgül koyarak ekler [ A, B, C ] Önceden seçilen bir veri yeniden seçilirse, tekrar seçilen veri silinir. Verilerinizin bulunduğu listeye "Temizle" veya "Clear" eklerseniz bunlar...

Merhaba, Listbox1 içerisine additem ile alına veriler textbox2 değerine göre çoklu seçiliyor. seçilen veriler sayfa12 ve listbox1 den silinecek. Sayfadan silebiliyorum, ancak listbox1 içerisinden silerken hata veriyor. Doğru şekilde yazamadım. İlgili kodları aşağıya ekledim. Bu kodlara istediğim...

...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...

Merhaba, Aşağıdaki kodu kendi isteğinize göre düzenlersiniz... Kapalı dosyada veri aktarımının yapılacağı sayfanın adını Sayfa1 olarak baz aldım. Siz istediğiniz gibi düzenlersiniz. Option Explicit Sub Verileri_Farklı_Dosyaya_Aktar() Dim My_Area As Range, Target_File As Variant...

Merhaba Aşağıdaki kod ile Listbox1 de seçili olan verileri ( multiselect açık ) Listbox2 ye aktarıyorum. Ancak daha önce seçip ve aktarılmış bir verinin tekrardan aktarılmaması için nasıl bir kod oluşturulmalıdır. Listboxlar tek sütundan oluşmakta. For i = 0 To ListBox1.ListCount - 1...

Emre Bey, Çekeceğim 3 ayrı sayfanın da isimleri farklı. " Set WS = WB.Sheets("SAYFA1") Set UA = WB.Sheets("SAYFA2") Set BH = WB.Sheets("SAYFA3") " kısmında hangi sayfalara çekeceğini ayrı ayrı yazacağım. ancak hangi sayfalardan çekeceğim kısmı; " Set Target_Sheet =...

Option Explicit Sub Düğme1_Tıkla() Dim WB As Workbook, WS,UA,BH As Worksheet, Target_File As Variant, Target_Sheet As Worksheet Set WB = ThisWorkbook Set WS = WB.Sheets("SAYFA1") Set UA = WB.Sheets("SAYFA2") Set BH = WB.Sheets("SAYFA3") Target_File =...

oldu çok teşekkür ederim. peki ayrı ayrı sayfaları çekmek için ayrı düğmeler atamak yerine tek düğmeyle koda yazdığım sayfaları çekmek nasıl olabilir?

dener misiniz? Option Explicit Sub Düğme1_Tıkla() Dim WB As Workbook, WS As Worksheet, Target_File As Variant, Target_Sheet As Worksheet Set WB = ThisWorkbook Set WS = WB.Sheets("personel") Target_File = Application.GetOpenFilename(FileFilter:="Excel Dosyaları...

Deneyiniz. Sayfa2 isimli sayfanın dosyanızda var olduğunu varsaydım. Option Explicit Sub Transfer_Data() Dim WB As Workbook, WS As Worksheet, Target_File As Variant, Target_Sheet As Worksheet Set WB = ThisWorkbook Set WS = WB.Sheets("Sayfa2") Target_File =...

Linkteki mantığı irdeleyebilirsiniz. https://www.excel.web.tr/threads/kapali-dosyadan-veri-alirken-uezerine-ekleme.200183/#post-1120447 Yetersiz gelirse diğer konulardan faydalanabilirsiniz. Arama Sonuçları

...seçmemi istiyorum, o yüzden aşağıdaki kodu nereye eklemem lazım? Dim yol As String yol = vaFiles = Application.GetOpenFilename( _ FileFilter:="Microsoft Excel Workbooks(*.xls;*.xlsx;*.xlsb;*.xlsm),*.xls;*.xls;*.xlsx;*.xlsb;*.xlsm", _ Title:="Select Files to Proceed", MultiSelect:=True)

Merhaba, Listbox'a label değerine göre koşullu veri alıyorum. Listboxtaki veriye çift tıklayıp veri güncellemesi yapmak istiyorum ancak bir türlü yapamadım. Koşullu veri aldığım için listboxta seçtiğim veri excelde hangi sıradaysa onu değiştiriyor koşula bakmaksızın. Listbox'a data çektiğim...

...& _ "*.jpeg;*.png;*.bmp;*.jpg;*.gif", _ Title:="Resim seçimi yapınız...", MultiSelect:=True) If IsArray(My_Files) Then X = 1 Y = 1 For Each My_File In My_Files Set Rng = S1.Cells(X, Y) Set My_Picture =...

Sn dEdE Şöyle bir kod buldum ve ona göre düzenledim ama renk satırı hata veriyor Private Sub UserForm_Activate() Call listbox1_doldur End Sub Sub listbox1_doldur() ListBox1.ColumnCount = 9 ListBox1.ColumnWidths = "20;75;80;115;75;75;70;70;80" ' veya "40;80;80;40;110;120;0;0;0;70;0"...

Merhaba. Formun kod sayfasında bulunan Private Sub CommandButton1_Click() ve Private Sub UserForm_Initialize() kodlarını silin aşağıdakileri ekleyin. Private Sub CommandButton1_Click() For X = 1 To UserForm1.ListView1.ListItems.Count If ListView1.ListItems(X).Checked = True Then...

Merhaba arkadaşlar, İlave sorumu sormadan önce konuyu kısaca hatırlatacak olursam: kapalı duran bir çalışma kitabından başka bir çalışma kitabına sheet1 sayfasını kopyala ile ilgiliydi. Kod son şekli ile çok güzel işliyor. Dim My_File As Variant, My_Sheet As Worksheet My_File =...

...docWord As Word.Document yol = Application.GetOpenFilename(FileFilter:="Word Files (*.doc*), *.doc*") ', Title:="Choose Files", MultiSelect:=True) If yol = False Then MsgBox "Dosyayı seçmediniz.", vbInformation, "DİKKAT" Exit Sub Else End If Cells.ClearContents Cells.Interior.ColorIndex =...

...docWord As Word.Document yol = Application.GetOpenFilename(FileFilter:="Word Files (*.doc*), *.doc*") ', Title:="Choose Files", MultiSelect:=True) If yol = False Then MsgBox "Dosyayı seçmediniz.", vbInformation, "DİKKAT" Exit Sub Else End If Cells.ClearContents Cells.Interior.ColorIndex =...