-
Fototrend
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
-
föccer
nagyúr
Valamiért a hibakezelés nem akar működni, de mndegy, a célnak így is megfelel.
B1-be
, ha A oszlopban vannak az adatok:=HA(SZÖVEG.KERES("adat2";A1)>0;"Talált!";"Nincs találat!")
Ezután autoszűrő bekapcsol, leszűrsz a "Talált kifejezésre a B olszopban, majd copy-paste az új munkalapra.
üdv, föccer
-
ulrik19
tag
-
#5642
Fire/SOUL/CD
félisten
mizu_
#5633
Hali!
Mivel makró után érdeklődsz ezért feltételezem, hogy azt nem kell elmagyarázni Neked, hogy hogy kell bevinni egy makró kódot.
Amint látod, az alábbi makró egy CommandButton-hoz tartozik.Private Sub CommandButton1_Click()
'A hálózati Excel fájl útvonala és neve
Dim MyNetworkExcelFilename As String
MyNetworkExcelFilename = "d:\_developer\_PH\Fire\mizu_\halozati_fajl\leltar.xls "
'MyNetworkExcelFilename = "http://www.firelapja.hu//leltar.xls"
'Ennek az Excel fájlnak a neve, ami futtatja a makrót
Dim MyCurrentExcelFilename
MyCurrentExcelFilename = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStr(1, ThisWorkbook.Name, ".", vbTextCompare) + 1)
'Forrás munkafüzet
Dim MySourceWorkbook As Workbook
'Forrás munkalap neve, amiből másolunk. Ezen a munkalapon vannak a kimutatás adatai
Dim MySourceSheet As String
MySourceSheet = "Munka1"
'Cél munkalap neve, amibe másolunk. Automatikusan létrehozza a makró ezt a munkalapot
Dim MyDestinationSheet As String
MyDestinationSheet = "Adatok"
'Megnyitjuk az állományt
Set MySourceWorkbook = Workbooks.Open(Filename:=MyNetworkExcelFilename)
'Átmásoljuk a kívánt munkalap tartalmát, a másikba, mégpedig úgy,
'hogy egy új munkalapot hozunk létre a munkafüzet végén
Sheets(MySourceSheet).Copy after:=Workbooks(MyCurrentExcelFilename).Sheets(Workbooks(MyCurrentExcelFilename).Sheets.Count)
'Bezárjuk a hálózatról megnyitott Excel fájl, méghozzá úgy, hogy nem jelenik meg
'semmilyen kérdés bezáráskor(például a módosítások mentése)
MySourceWorkbook.Close False
'Az előbbiekben létrehozott munkalapot átnevezzük a kívánt névre, amit korábban megadtunk(itt most "Adatok"ra)
ActiveSheet.Name = MyDestinationSheet
End SubA példában nem internetről nyitottam meg fájlt, de természetesen ott van a forrásban is az elérés formátuma("http://www.firelapja.hu//leltar.xls") és természetesen működik is. (Persze ez nem létező oldal)
Ha valami nem lenne tiszta, akkor írj.
Fire.
-
Delila_1
veterán
Az űrlap vezérlőelemek közül is alkalmazhatod a kombi panelt (lenyílót). Azért ezt ajánlom, mert könnyebb kezelni, mint az ActiveX vezérlőt.
A Vezérlő formázásánál (jobb klikkre jön elő) a Vezérlő fülön megadod a Bemeneti tartomány helyét a füzetedben, a Cellacsatoláshoz azt a cellát, ahova a számot szeretnéd íratni.
A csatolt cellában az a sorszám jelenik meg, ahányadik a kiválasztott tétel a bemeneti tartományodban. Ez azt jelenti, hogy nem lehet 0, a minimális értéke 1. -
Új hozzászólás Aktív témák
Fferi50- Apple AirPods Pro (2. generáció) - csiszolt almaságok
- Xbox Series X|S
- Hitelkártyák használata, hitelkártya visszatérítés
- Avatar: Frontiers of Pandora - Rövid videón a külső kameranézet
- Gumi és felni topik
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- OFFTOPIK: Earfun-lányok Sencsenben
- Otthoni hálózat és internet megosztás
- Lexus, Toyota topik
- GoodSpeed: Reklámmentesítés HyperOS-ben Xiaomi/POCO/Redmi
- További aktív témák...
- Bomba ár! Lenovo ThinkPad Yoga 260 - i5-G6 I 8GB I 192SSD I 12,5" FHD Touch I W10 I Cam I Gari!
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Intel Core i5 4590S 4 mag 4 szál processzor garanciával hibátlan működéssel
- GYÖNYÖRŰ iPhone 14 Pro 256GB Deep Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3352
- Apple Watch Series 9 45mm GPS Starlight 1 év Garancia Beszámítás Házhozszállítás
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő