- „Új mérce az Android világában” – Kezünkben a Vivo X300 és X300 Pro
- One mobilszolgáltatások
- Na, még egyszer, csak ezúttal OnePlus Open néven
- Telekom mobilszolgáltatások
- Xiaomi 14T - nem baj, hogy nem Pro
- Yettel topik
- Google Pixel topik
- Milyen okostelefont vegyek?
- Apple iPhone Air - almacsutka
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
bteebi
veterán
válasz
Fferi50 #32163 üzenetére
Köszönöm!
Módosítottam a makrót, így már egy dropdown-ba (vagy bármi másba) ki tudom gyűjteni a file-okat az általad megadott módon. Hogy lehetne ezt megjeleníteni egy message/input boxban?
Sub listakereso()
Dim datum As Long, file As Variant, lista As String
datum = ActiveSheet.Range("C4")
file = Dir("D:\Proba\lista_" & datum & "*.pdf")
lista = ""
Do While (file <> "")
If lista = "" Then
lista = file
Else
lista = lista & "," & file
End If
file = Dir()
Loop
With ActiveSheet.Range("C5").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= xlBetween, Formula1:=lista
.IgnoreBlank = True
.InCellDropdown = True
End With
If lista = "" Then
MsgBox "Nem találom a listát!", vbExclamation
End If
End Sub
Új hozzászólás Aktív témák
- Okos Otthon / Smart Home
- AMD Navi Radeon™ RX 9xxx sorozat
- ANNO 1800
- Xbox Series X|S
- Tizenkét tányérra térne át a Toshiba a HDD-piacon
- Borderlands 4
- Meghalt a Windows 10, éljen a Windows 10!
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Analóg fényképezés
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- További aktív témák...
- Vadiúj garanciás kèszleten lèvő lapok! Kamatmentes rèszletre is!
- Önerő nélkül is elvihető! Részletfizetés. 27 % Áfás számlával Dell Alienware QD-OLED gamer monitor
- Fujitsu USB Port Replicator PR09 docking station (1x5K vagy 2x4K felbontás) (DisplayLink)
- GYÖNYÖRŰ iPhone 13 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3437, 100% Akkumulátor
- HIBÁTLAN iPhone 16 Pro 128GB Desert Titanium -1 ÉV GARANCIA - Kártyafüggetlen, MS3673, 97% Akksi
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest