-
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- Adobe Előfizetések - Adobe Creative Cloud All Apps - 12 Hónap - 15% AKCIÓ
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Microsoft és egyéb dobozos retro szoftverek
- The Elder Scrolls Online Imperial Collector s Edition
- iPhone 17 256 GB Levander - Bontatlan !! www.stylebolt.hu - Apple eszközök és tartozékok - Számlás
- Referencia Weboldallal Világítós bill+laptop bill magyarítás. Rania 3M -is! Touchpadok is.Posta ok
- HP Dell, üzleti kategóriás notebook kiárusítás - frissítve: 02.28
- Apple iPhone 13 /128GB / Kártyafüggetlen / 12Hó Garancia / Akku: 100% Után gyártott Kijelző
- iPhone 14 Pro Max 256GB 100% (1év Garancia)
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest