- Milyen okostelefont vegyek?
- Redmi Note 13 Pro+ - a fejlődés íve
- iPhone topik
- Samsung Galaxy A54 - türelemjáték
- Redmi Note 12 Pro - nem tolták túl
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Apple Watch Sport - ez is csak egy okosóra
- Mobil flották
- Okosóra és okoskiegészítő topik
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
Hirdetés
-
[SoP] Konzolokra is megjelenik a Marvel Rivals
gp A következő zárt béta júliusban érkezik, ez már mindhárom platformon futni fog.
-
Két OLED kijelzőt is bevet a GPD DUO
ph A készülő notebook biztosan úgynevezett AI PC lesz, de nem tudni, hogy milyen platform kerül bele.
-
Retro Kocka Kuckó 2024
lo Megint eltelt egy esztendő, ezért mögyünk retrokockulni Vásárhelyre! Gyere velünk gyereknapon!
-
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
-
Fferi50
őstag
válasz Stanlee #30273 üzenetére
Szia!
Én úgy látom, az első oszlopon nincs mit elrontania, mert minden szám egyforma, így minden különbség is 0
Táblát feltölteni bármelyik oldalra lehet, amelyik nyilvános és hozzáférést enged - pl. google-drive, csak itt a hozzáféréssel bűvészkedned kell - én a data.hu oldalt szoktam használni.
Kicsit jobban megnézem még, de szerintem más valami képletre lenne szükség, most inkább nem rögtönöznék.
Üdv.
-
Fferi50
őstag
válasz Delila_1 #30282 üzenetére
Szia!
Amit gyanítottam, az bekövetkezett.... Szerintem egy sima kimutatással meg lehet oldani a problémát, nem kell hozzá bűvészkedni az idővel és a napokkal:
A kimutatás értékmezőit óra szerint csoportosítani kell, majd kiválasztani a maximumot és beállítani az Eltérés az előzőhöz. Ennyi lenne szerintem.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz m.zmrzlina #30435 üzenetére
Szia!
Szerintem az Fkeres még egyszerűbb, ha a tartományban keres (4. paraméter) igazra van állítva, akkor ugyanezt az eredményt adja egy függvénnyel.
Üdv.
-
Fferi50
őstag
válasz Kal-El #30471 üzenetére
Szia!
Még egy ötlet: Ha a cellához megjegyzést fűzöl és abba beírod a módosított értéket makróval, a megjegyzés méretét cellához igazítod és "eltakarod" vele a cellát és beállítod a megjegyzés és jelölő mindig látható, akkor általában csak a megjegyzést fogja látni a felhasználó. Igaz, ha rákattint, akkor a megjegyzés szerkeszthető lesz.
Másik lehetőség, hogy a cellában levő számot "kitakarod" - vagyis háttér színűre változtatod, a megjegyzésnél csak a jelölő megjelenítését. Ebben az esetben a cella fölé érve a cursornál megjelenik a megjegyzésben levő érték.Üdv.
-
Fferi50
őstag
válasz PistiSan #30485 üzenetére
Szia!
Feltételes formázással megoldható szerintem a probléma. Kijelölöd a W és X oszlop adattartalmát.
Kezdőlap - feltételes formázás - új szabály - cellák kijelölése képlettel:
A képlet =DARABTELI($W5:$W3000;W5)=DARABTELI($X5:$X3000;W5)Beállítod a kitöltőszínt zöldre. Hatókör az adattartományod címét írod be.
Ez minden olyan tételt zöldre színez, ahol a W oszlopban ugyanannyiszor fordul elő, mint az X oszlopban.
Ha páratlan az előfordulás, az összes olyan szám színtelen marad, azt egyedileg kell nézni.
Üdv.
-
Fferi50
őstag
válasz PistiSan #30493 üzenetére
Szia!
Nem látszik, hogy a tartomány, amire érvényes a formázás, hogyan van megadva.
Elvileg azokat a tételeket színezi be, amelyeknek van az X oszlopban is és a W oszlopban is párja. Viszont, ha egynek is közüle nincs párja, akkor egyiket sem színezi be.
Esetleg javaslok olyat, hogy egy segédoszlopba vidd be a következő képletet:
=MARADÉK(DARABTELI($W$5:$X$3000;$W5);2)=1Utána erre az oszlopra tegyél feltételes formázást =IGAZ képlettel.
A képlet azt mutatja, hogy az W oszlopban levő értékeknek van-e mindnek párja az X oszlopban. Ha nincs, akkor igaz lesz a képlet értéke.
Ugyanezt egy másik segédoszlopon a "biztonság kedvéért" megcsinálhatod
=MARADÉK(DARABTELI($W$5:$X$3000;$X5);2)=1 képlettel és feltételes formázással ugyanúgy.De akár az is elég lehet, ha a segédoszlopokba a DARABTELI függvénnyel beíratod, hogy az adott tételből hány db van a két oszlopban (az előző két képlet belső függvénye). (Ez sokkal egyszerűbb a kimutatásnál.)
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz bteebi #30495 üzenetére
Szia!
Az utvonal nevű változódat Public ként kell definiálnod a modul elején.
Public utvonal As String
Ezután az OptionButtonokhoz tartozó eljárásokban nem szabad Dim -mel újradefiniálni az útvonalat, azt a sort felejtsd el!
Az utvonal értéke mindig az lesz, amit a legutolsó OptionButtonos eljárás megadott neki.Javaslom a VBA helpben az Understanding the Lifetime of Variables témakört nézd át hozzá még, illetve a Public utasításhoz fűzött példákat.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz proradeon #30497 üzenetére
Szia!
Sem makró, sem függvény...
Megcsinálhatod a Munka1 munkalapon is - de ha ahhoz nem szeretnél nyúlni, akkor a Munka2-n. Van erre az Excelnek pár jó eszköze.
Pl. Kimutatás - ezt teheted a Munka2 munkalapra is. Szerintem ez a legegyszerűbb.
Vagy az Adatok menüpontjaival: Sorbarendezés Gyártó majd Tipus szerint - utána részösszegek Gyártóra - részösszegek következő lépésben Tipusra - a korábbi részösszeg meghagyásával.
Ennek is kb. az az eredménye, amit látni szeretnél - kicsit többet kell vele dolgozni, mint a kimutatással....Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz alevan #30533 üzenetére
Szia!
Az FKERES függvény lesz a megoldás. Pl
első "adatbázis"
D1 cella képlete: =Fkeres($A1;"Második adatbázis $A$1:$C$20000;2;0)
E1 cella képlete: =Fkeres($A1;"Második adatbázis $A$1:$C$20000;3;0)(Kis gonoszkodás - nem két adatbázisod van, hanem 2 táblád - 2 külön excel fájlban vagy egy fájlban két munkalapon).
Üdv.
-
Fferi50
őstag
válasz alfa20 #30535 üzenetére
Szia!
1. "Dim WBmunka1 as Workbook
set WBmunka1 = Workbooks("vmi.xlsx').Sheets("zöld")"
Ez így azonnali hibát eredményez, mert a munkafüzetnek definiált változóba munkalapot szeretnél tenni!2.Range("P2") = _
"=IFERROR(VLOOKUP(RC[-11],'[" & vmi_mf & "]" & vmi_ml & "'!C1:C21,2,0),"""")"
helyett Range("P2").formula=
vmi_mf helyett pedig WBmunka1.name a helyes a képletben (ámbár az 1. pontban írtak szerint ez így nem működik).
Üdv.[ Szerkesztve ]
-
Fferi50
őstag
válasz Mittu88 #30642 üzenetére
Szia!
Úgy gondolom, a nyitas makró tartalmát az ujverzio.xlsm Workbook_open eseményébe kellene beletenned, így az a fájl megnyitásakor lefutna.
(Melyik excel verzióról van szó?)
De akkor sem tartom igazán szerencsésnek ezt a megoldást, mert a füzeteken keresztül-kasul ugráló makrók tudnak ám problémát csinálni.
Én egy külön fájlba tenném ezt a verzió kezelést, ami megnézné, hogy van-e új verzió, ha igen, végrehajtja a kimásolásokat és utána akár be is zárhatja magát.Üdv.
-
Fferi50
őstag
-
Fferi50
őstag
válasz trippla #30752 üzenetére
Szia!
Kissé kuszának találom a kérdést. Két számot szeretnél lapfülönként összeszorozni, majd lapfülenként összeadni a szorzatot? Akkor itt nem egyszer két szám összeszorzásáról van szó lapfülenként.
"Fülenként egy számot össze tudok adatni" Ezt szintén nem értem, egy számot mivel adatsz össze.
Egyébként az egy szám helyére beírod az összeszorzás képletét a megfelelő cellákkal szerintem.
Esetleg arról van szó, hogy a 100 lapfülön levő egy-egy számot adod össze valahova?Segíts egy kicsit légy szíves a kérdés pontosításával.
(Ha minden lapon ugyanabban a két cellában levő számokatt szeretnéd összeszorozni egy adott cellába, akkor egyszerű a helyzet. Kijelölöd mind a 100 munkalapot alul a fülön - csoportos kijelölés --, majd az éppen láthatóra beírod a képletet pl. =a2*b2 a c2 cellába. Minden kijelölt lapon ott lesz a képlet. De gyanítom, nem ez a helyzet.)
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz Gaagaat #30839 üzenetére
Szia!
Tudomásom szerint ilyen beépített excel függvény nincs jelenleg (2010-es verzióig biztosan nem volt), ezért csak úgynevezett felhasználói függvény (magyarul makró) jöhet szóba, ami egyébként nem túl bonyolultan megoldható de engedélyezni kell hozzá a makróhasználatot.
Üdv.
-
Fferi50
őstag
válasz the radish #30821 üzenetére
Szia!
Az alábbi makrót idomítsd a saját fájljaidhoz. A makró maga egy excel fájlban van.
Sub wordkorlevel()
Dim wd As Object
Dim wddoc As Object
Set wd = CreateObject("Word.Application") ' megnyitja a word alkalmazást
wd.Visible = True 'láthatóvá teszi
Set wddoc = wd.documents.Open("C:\Users\fferi\Documents\Körlevél.docx") 'megnyitja a körlevelet
wddoc.mailmerge.opendatasource Name:="C:\Users\fferi\Documents\Korleveles1.xlsx", linktosource:=True, sqlstatement:="SELECT * FROM `Munka1$`" ' összekapcsolja a forrással
wddoc.Activate ' csak azért, hogy lásd
wddoc.mailmerge.ViewMailMergeFieldCodes = False ' az adatokat mutatja és nem a kódokat
Stop
wddoc.Close False 'mentés nélkül bezárja
wd.Quit ' kilép a word alkalmazásból
End SubA kód egy excel munkafüzet normál moduljában van (de lehet a körlevél forrás excel fájljában is, csak akkor menteni xlsm formában kell!!
Ezen kívül a VBA Tools References menüjében be kell pipálni a megfelelő Word verzió könyvtárát!Üdv.
-
Fferi50
őstag
válasz the radish #30858 üzenetére
Szia!
Örülök, hogy sikerült adaptálnod. Pár éve egy másik fórumon volt egy kis vitánk, hogyan lehet excel - word körlevél együttműködést "optimalizálni". A VBA help alapján - no meg a Word makrórögzítés segítségével - akkor sikerült összeraknom ezt a viszonylag egyszerű megoldást. Az akkor munkafüzetet már nem találtam, de a helpek a "helyükön voltak" és az "emlékfoszlányok" is segítettek.
Remélem, nem lesz a későbbiekben sem probléma.Üdv.
-
Fferi50
őstag
válasz the radish #30876 üzenetére
Szia!
Van egy olyan paramétere a PrintOut- ami megmondja, hogy mit nyomtasson ki, ez a Range.
Pl: ActiveDocument.ActiveWindow.PrintOut _
Range:=wdPrintFromTo, From:="1", To:="3"
This example prints the first three pages of the document in the active window.Üdv.
-
Fferi50
őstag
válasz the radish #30889 üzenetére
Szia!
Szerintem az a gond, hogy nem a word objektumra hivatkozol.
Próbáld így lsz.
objDoc.ActiveWindow.PrintOut _
Range:=wdPrintFromTo, From:="1", To:="3"Mivel két alkalmazás több különböző objektuma van benn, ezért pontosan meg kell mondani, melyiknek szánod a parancsot.
Üdv.
-
Fferi50
őstag
válasz the radish #30895 üzenetére
Szia!
Milyen hibaüzenettel akad el a makró?
Azt gondolom, hogy az objword.objdoc hivatkozás lesz az igazi, az is elképzelhető, hogy az activewindow kihagyható/kihagyandó belőle.Üdv.
-
Fferi50
őstag
válasz the radish #30897 üzenetére
Szia!
Este már nem jutottam hozzá a géphez/internethez.
Nem szeretnélek elkeseríteni, de nálam szépen lefut és nyomtat - sima doksit és körlevelet is, ha a körlevelesbe beleteszem a megfelelő sort. A hozzászólásodból másoltam ki direkt a makrót és egyáltalán nem panaszkodott (persze fájlneveket átcseréltem...).
Nálam 2010-es Office van fent, nem tudom Nálad mi fut.
Nézd meg légy szíves az immediate ablakban a wdPrintFromTo értékét. Ha nem 3, akkor a változó helyett lsz. írd be a 3-as számot, idézőjelek nélkül.
Korábbi verziókban lehet, hogy nem így kell megadni, akkor viszont a word help tud segíteni. Ha mégsem megy/nem találod a megoldást, menjünk át privibe.Üdv.
-
Fferi50
őstag
válasz PistiSan #30899 üzenetére
Szia!
Bár nem tudom, mit jelent, hogy más képleteket is szeretnél alkalmazni, de hidd el, a legegyszerűbb a szövegből oszlopok, ahol meg tudod adni a határoló karaktert is, bármit választhatsz.
De képlettel az alábbiak szerint lehet megoldani szerintem:
Az A1 cellában van a szétbontandó szöveg.
A B1 cellába beírod a következő képletet:=KÖZÉP(A1;SZÖVEG.KERES(",";A1)+1;HOSSZ(A1))
Ezt végihúzod az első soron, egész addig, amíg az eredmény egy hiba nem lesz.
Ezután az A2 cellába beírod ezt a képletet:=HAHIBA(BAL(A1;SZÖVEG.KERES(",";A1)-1);A1)
Addig húzod jobbra, amíg van fölötte szöveg a cellában.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz tonermagus #30937 üzenetére
Szia!
Adatok - szövegből oszlopok - tagolt - szöveg - a következő panelen határoló jelnél egyéb - ide beteszed a soremelés karaktert :Alt + numerikus billentyűzeten 10 vagy 13 ezt próbáld ki, hogy melyik műxik. Úgy tudhatod meg legegyszerűbben, milyen számot kell bebillentyűzni, ha a mellette levő cellába beírod ezt a képletet:
=KÓD(KÖZÉP(E3;2;1))
Ezt kell a numerikus billentyűzeten megadni határoló karakternek.
Utána már csak arra kell vigyáznod, hogy ne írd felül az eredeti cellát.Üdv.
-
Fferi50
őstag
válasz Exportlaptop #30938 üzenetére
Szia!
Szerintem az a probléma, hogy a képek nincsenek benne magában az excel fájlban, csak a rájuk mutató hivatkozás - ami viszont nyilván a te gépedre mutat. Ezért a külön képfájlt is el kellene küldeni az excel mellé ugyanabba a könyvtárba, továbbá a hivatkozást úgy lenne jó megcsinálni, hogy azonos könyvtárban van a két fájl, akkor nem kell a teljes név, elég a rövid név hozzá.
Üdv.
-
Fferi50
őstag
válasz Exportlaptop #30942 üzenetére
Szia!
Semmi akadálya annak, hogy a képeket egy külön munkalapra betedd (Beszúrás - kép), majd erre állítsd be a hivatkozást, viszont azt tudni kell, hogy ekkor a fájlod mérete "rettenetesen" megnő, hiszen fizikailag tartalmazza a képek adatait, ami nem kevés. Ez pedig a megnyitásnál hosszadalmas.
Ha viszont ugyanabban a mappában vannak a képek is, mint az excel fájl maga, akkor gyors a megnyitás és meg is találja, ha nem abszolut hivatkozást használsz. Ekkor az egész mappát kell átadni a másik félnek.Üdv.
-
Fferi50
őstag
válasz tonermagus #30950 üzenetére
Szia!
Mondanám, hogy ennek nem lenne szabad megtörténnie ... de nyilván megtörtént.
Pár soros mintát tégy fel légy szíves valahova (pl. data.hu), ahonnan elérhető és megnézhető.Üdv.
-
Fferi50
őstag
válasz tonermagus #30955 üzenetére
Szia!
Sajnos az derült ki, hogy az elválasztó nem egy, hanem két karakter (soremelés kocsivissza - CRLF, aminek a kódja 13 és 10 ebben a sorrendben), ezért egy kis trükköt kell alkalmazni:
Az L2 cellába írd be az alábbi képletet:
=HELYETTE(K2;KARAKTER(13)&KARAKTER(10);"!")A felkiáltójel helyett írhatsz pontosvesszőt is akár, de nekem most ez esett kézre.
A képletet végighúzod az oszlopon.
Ezután kijelölöd az egész oszlopot, másolás - irányított beillesztés értéket.Ez a halmaz már alkalmas az adatok - szövegből oszlopok végrehajtására, az elválasztó karakter egyéniben a felkiáltójel, illetve a pontosvesszőt csak be kell jelölnöd.
Üdv.
-
Fferi50
őstag
válasz tonermagus #30960 üzenetére
Szia!
Csak az első oszlopot kell kijelölni, a többit "magától" kitölti.
Üdv.
-
Fferi50
őstag
válasz tonermagus #30963 üzenetére
Szia!
Az első képedből az látszik, hogy nincsenek ott a felkiáltójelek a szövegben! A képlettel módosított szöveget kell értékként beilleszteni egy új oszlopba és azt tudod szétszedni, nem az eredetit.
Üdv.
-
Fferi50
őstag
válasz tonermagus #30966 üzenetére
Szia!
Örülök, hogy sikerült!
Üdv.
-
Fferi50
őstag
Szia!
Igen, a dátum elég kacifántos, bár nálam 2010-es excel alatt szépen elfogadta.
Szerintem tedd fel pár sorral egy elérhető helyre és megnézzük.
Az excel a dátumot egyébként számként kezeli, a keresésekben általában az angol dátumformátum a nyerő, esetleg próbáld meg úgy... (Bár nálam a magyarral ment.)Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz DrojDtroll #30971 üzenetére
Szia!
Hozzáfűzöd a szó után a KARAKTER(10) függvényértéket (ami a sorvéget jelenti).
Az ÖSSZEFŰZ függvény helyett bátran használd a & (ampersand) karaktert, rövidebb és egyszerűbb is:=Összefűz("Kalap";Karakter(10);"Kabát") helyett ="Kalap" & Karakter(10) & "Kabát"
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
Szia!
A titok az szerintem, hogy a feltételben szereplő dátumokat a dátum függvénnyel kell megadni:
pl. B2 cella képlete:=">=" & DÁTUM(2016;1;1), amit az excel számmá fog alakítani >=42370 (de ez ne zavarjon!, mert így biztosan működik), de használhatod a Dátumérték függvényt is a megfelelő szövegformátumban megadott dátummal.
Makróval pedig a Dateserial ill. a Date függvényt haszálhatod:
Range("B2").Formula="="">="" & DATE(2016,1,1)
Ráadásul a makrónál biztos lehetsz benne, hogy minden nyelvi környezetben megfelelően működik, mert ebben így az angol nyelvű formulákat kell alkalmazni.Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
válasz DrojDtroll #30975 üzenetére
Szia!
Egy szép tömbképlettel kaphatod meg az eredményt:
=INDEX(A2:A9;HOL.VAN(MAX(((B2:B9="a")*C2:C9));C2:C9);0))
A tömbképletet Ctrl+Shift + Enter kombinációval kell bevinni, arról ismered meg, hogy kapcsos zárójelek közé kerül. Ha nem így viszed be, akkor Hibát fogsz eredményül kapni.
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
Szia!
A fájlnevet megadhatod így:
Windows("Terv_HWP_" & Format(date,"yyyy_mm_dd" & ".xlsm").ActivateDe magát a másolást is egyszerűbben tudod megtenni:
Workbooks("Terv.xlsx").Sheets("Terv").Range("A1:C25").Value=Workbooks("Terv_HWP_" & Format(Date,"yyyy_mm_dd" & ".xlsm").Sheets("Tény").Range("A1:C25").ValueMivel a Terv nevű fájlt utoljára nyitod meg, ha csak egy munkalapja van, akkor elég az
Activesheet.Range("A1:C25").Value=Workbooks("Terv_HWP_" & Format(Date,"yyyy_mm_dd" & ".xlsm").Range("A1:C25").Valuetekintettel arra, hogy megnyitás után az lesz az aktív munkalap.
Nem kell ide-oda ugrálni a két munkafüzet között. Figyelj rá, hogy a kódban a workbooks - worksheets forma van és nem a windows!
Üdv.
[ Szerkesztve ]
-
Fferi50
őstag
Szia!
Szerintem ne a Windows hanem a Workbooks objektumot használd lsz:
Workbooks("Terv_HWP_" & Format(Date, "yyyy_mm_dd" & ".xlsm")).Activate , mivel az ablak neve nem biztos, hogy ugyanaz...
De írtam a hozzászólásban, hogy nem kell aktiválni a korábban megnyitott fájlt. Ide írom ismét a képletet, egy picit javítani kellett rajta:
Activesheet.Range("A1:C25").Value=Workbooks("Terv_HWP_" & Format(Date,"yyyy_mm_dd" & ".xlsm").Sheets(1).Range("A1:C25").ValueA Sheets(1) helyett azt a munkalapot írd be, ahol az adatok találhatóak.
Üdv.
-
Fferi50
őstag
válasz Simba86 #31027 üzenetére
Szia!
Az Adatok - Speciális szűrővel egyből a másik helyre másolhatod a szűrt adatokat. Az a fontos, hogy arról a munkalapról indítsd, ahová másolni szeretnéd az adatokat. A párbeszéd ablakot értelemszerűen töltsd ki.
Ha makrórögzítővel felveszed, akkor csak a szűrőtartomány megfelelő értékeit kell változtanod, mielőtt elindítod a makrót.Üdv.
-
Fferi50
őstag
válasz Delila_1 #31031 üzenetére
Szia!
"A specszűréshez minden lapon kritérium tartományt és címsort kellene előre felvenni."
Ezt egyáltalán nem kell megcsinálni. Elég, ha makróval a "szétbontandó" munkalapon csinálunk egy kritérium tartományt. Kiszedjük az egyedi ÁFA kulcsokat, azokat egyesével beírjuk (ciklusban) a kritériumtartomány megfelelő helyére. Ha kell, adunk hozzá új lapot, majd erre a lapra leszűrjük az adatokat.
Ha már minden ÁFA kulcshoz van munkalapunk, akkor a szűrést lehet csinálni végig az eredeti munkalapon maradva.Üdv.
-
Fferi50
őstag
válasz Delila_1 #31033 üzenetére
Szia!
Nekem ez "sikeredett" mostanra:
Sub szuroget()
Dim sh1 As Worksheet, sh2 As Worksheet, usor As Integer, xx As Integer, szuro As Range, cel As Range, szurni As Range
Set sh1 = ActiveSheet
Set szuro = sh1.Range("BB1:BB2")
Set szurni = sh1.Cells(1).CurrentRegion
szuro.Clear
szuro.Cells(1, 0).Clear
szurni.Columns("Q").AdvancedFilter Action:=xlFilterCopy, criteriarange:=sh1.Range("Q1"), copytorange:=szuro.Cells(1, 0), unique:=True
szuro.Cells(1).Value = szuro.Cells(1, 0).Value
usor = szuro.Cells(1, 0).End(xlDown).Row
For xx = 2 To usor
szuro.Cells(2).Value = szuro.Cells(xx, 0).Value
On Error Resume Next
Set sh2 = Sheets(szuro.Cells(2).Value)
If Err <> 0 Then
Set sh2 = Sheets.Add(after:=Sheets(Sheets.Count))
sh2.Name = szuro.Cells(2).Value
Else
sh2.UsedRange.Clear
End If
Set cel = sh2.Range("A1")
szurni.AdvancedFilter Action:=xlFilterCopy, criteriarange:=szuro, copytorange:=cel, unique:=False
Next
sh1.Activate
End SubÜdv.
-
Fferi50
őstag
válasz kozyadam #31041 üzenetére
Szia!
Ha nyomsz neki egy újraszámolást, akkor "észreveszi", hogy már elmúlt az időpont.
Makróval pedig pl. a Worksheets(1).Calculate sor végzi ugyanezt, amit betehetsz pl. a munkalap Selection_Change eseményébe, illetve lehet időzítést is csinálni az Application.Ontime metódus segítségével.
Emlékeim szerint volt már ilyen jellegű kérdés itt a fórumon is megoldvaÜdv.
-
Fferi50
őstag
válasz the radish #31213 üzenetére
Szia!
Beleklikkre nem találtam megoldást, de egérmutató rávitele esetére az alábbi kis makró - amit a Textbox1 megfelelő eseménykezelőjébe írtam, aktiválja a Textbox1 -et és "bekékíti" a teljes szöveget - azaz gépelés elkezdésekor törlődik a benne levő szöveg.
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Me.ActiveControl.Name <> "TextBox1" Then
TextBox1.SetFocus
Application.SendKeys "+({TAB})"
Application.SendKeys "{TAB}"
'Textbox1.Text="" 'is kitörli a szöveget, ha fölé viszed az egérmutatót, akkor nem kell az előző két sor (nyilván véletlen kitörlés ellen kell még egy rákérdezés ebben az esetben msgbox használatával)
End If
End SubÜdv.
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Milyen okostelefont vegyek?
- Politika
- Kínai, és egyéb olcsó órák topikja
- Redmi Note 13 Pro+ - a fejlődés íve
- The Division 2 (PC, XO, PS4)
- Metal topik
- MOBILTELEFON / TARTOZÉK / OKOSÓRA / OKOS KIEGÉSZÍTŐ beárazás
- Kaspersky Antivirus és Internet Security Fórum
- LEGO klub
- PlayStation 5
- További aktív témák...
- Canva Pro előfizetés - 1 éves
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- AKCIÓ! - STEAM kulcsok / Punch Club, Oddworld: Soulstorm, Children of Morta, stb. - 2024.05.16.
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs