-
PROHARDVER!
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
-
#12500
csferke
senior tag
Fire/SOUL/CD
#12485
csferke
senior tag
válasz
Fire/SOUL/CD
#12485
üzenetére
Ez téma engem is érdekelne olyan formában, hogy amikor a legördülőből kiválasztódik egy NÉV pl. A1-ben akkor legyen A2=VÁROS A3=TELEFONSZÁM mint egy számlán.
Folytatva hogyan lehet elérni, hogy az az a mező amelyben a legördülő van nyomtatáskor csak sima szövegként látszódjon. Eddigi kísérletem során nyomtatáskor is látszott a mezőkeret a lenyitáshoz való nyíllal.
-
#12499
WLDRK
csendes tag
Fire/SOUL/CD
#12498
WLDRK
csendes tag
válasz
Fire/SOUL/CD
#12498
üzenetére
Nagyon köszönöm
ezt potnosan így képzeltem el én is.A nagy kérdés, ki az aki ezt meg is írja nekem? mert ehhez hülye vagyok már. Illetve lehet erre találni "sablont" valahol, amit csak az én escel-em formájára kell "írni"?
-
#12498
Fire/SOUL/CD
félisten
WLDRK
#12496
"Szerinted van erre megoldás ami nem makro?"
makró nélkül + emberi beavatkozás nélkül nem hiszem, hogy kivitelezhető. Ha meg már emberi beavatkozás kell, akkor ez a feladat max 5 percet vesz igénybe dec 31.-én...
(12x kell eljátszani a szűrést meg a copy/paste-et...)Olyan automatizált makrót lehet írni, ami ha valamilyen változás/módosítás hajtódik végre az összesítő munkalapon, akkor a megadott munkalapokra átmásolgatja az adott hónaphoz tartozó bejegyzéseket/sorokat. (pl van egy 2012 nevű munkafüzet, ezen belül egy összesítő nevű munkalap meg még 12 darab, a hónapok nevével illetett munkalap. Ha az összesítőn történik módosítás, akkor lefut a makró, és a háttérben elintézi a dolgot)
-
#12497
fi:zi'k
nagyúr
Fire/SOUL/CD
#12494
fi:zi'k
nagyúr
válasz
Fire/SOUL/CD
#12494
üzenetére
Köszi, azt hiszem jól leírtad, tehát jó lett.
-
#12496
WLDRK
csendes tag
Fire/SOUL/CD
#12495
WLDRK
csendes tag
válasz
Fire/SOUL/CD
#12495
üzenetére
Igen, lehet, hogy bővebben kellett volna leírnom.
Tehát, van ( vagy lesz, ez mindegy most
) 1000 megrendelés ( tehát 1000 sor ) és azt szeretném, ha az 1000 sorból, mint táblázatból ( adattáblából ) majd automatikusan 12 másik munkalapra gyűjteni hónaponként a megrendeléseket.Szükségem lenne erre... hogy ne szűrögetni kelljen.
Szerinted van erre megoldás ami nem makro?
-
#12495
Fire/SOUL/CD
félisten
WLDRK
#12493
Használj szűrőt. A dátumokat tartalmazó oszlopokat szűrőd Dátumszűrők/E hónapban, aztán egérrel kijelölöd a szűrt területet és copy/paste, majd megszünteted a szűrést.
Egyszerűbb, mint feleslegesen függvényt írni (persze ha csak ennyi a feladat és nincs egyéb igény, amiről esetleg nem tettél említést)
-
#12494
Fire/SOUL/CD
félisten
fi:zi'k
#12492
válasz
fi:zi'k
#12492
üzenetére
Hogy mennyire jó, azt nem tudom, de ha úgy működik ahogy szeretnéd, akkor nyilván jó.
Szövegesen leírva ez a képlet azt csinálja, hogy ha az E19 számot tartalmaz, akkor megvizsgálja az Y19 tartalmát, ha Y19 nem üres, akkor összeszorozza a 2 megadott cellát, ha meg üres, akkor kerekítést is eszközöl.
Na ha ez volt a feladat/a cél, akkor a képlet jó.
Ha így mondatszerűen meg tudod fogalmazni a feladatot, akkor a képletek legyártása is könnyebb.
-
#12492
fi:zi'k
nagyúr
Fire/SOUL/CD
#12490
fi:zi'k
nagyúr
válasz
Fire/SOUL/CD
#12490
üzenetére
Ez így mennyire jó? Mert a kapott értékek jók.
=HA(ÉS(E19<>"";SZÁM(E19));HA(Y19<>"";D19*E19;KEREKÍTÉS(E19*D19*0,9;0));"-")
-
#12491
WLDRK
csendes tag
Fire/SOUL/CD
#12490
WLDRK
csendes tag
válasz
Fire/SOUL/CD
#12490
üzenetére
Fire,
Köszönöm, meg is csináltam
megmentetted az állásom ( remélem )Ha mégsem fogadják el, hétfőn kereslek!
és ezt nyugodtan veheted fenyegetésnek 
KÖszönöm!
-
#12490
Fire/SOUL/CD
félisten
WLDRK
#12488
Először azért kérdezd meg, hogy elfogadják-e, mert a másik lehetőség az az, amit pedzegetsz is, azaz a makrózgatás, persze vannak olyan alapvető dolgok, amik esetén elkerülhető a makró, de ahhoz pontosan kell tudni a feladatot.
fi:zi'k
Az ÉS függvényen belül felsorolhatsz több feltételt, nem csak kettőt, és az hivatkozhat bármely cellára és annak tartalmára is. -
#12489
fi:zi'k
nagyúr
Fire/SOUL/CD
#12487
fi:zi'k
nagyúr
válasz
Fire/SOUL/CD
#12487
üzenetére
Akkor jól sejtettem.
A második felében, a képlet bővítésében is tudsz segíteni?
-
#12488
WLDRK
csendes tag
Fire/SOUL/CD
#12485
WLDRK
csendes tag
válasz
Fire/SOUL/CD
#12485
üzenetére
Szuper, nagyon köszönöm!
Ez már nekem is eszembe jutott, csak nem vagyok benne biztos, hogy ezt így elfogadják.
Mi lenne a másik megoldás? Makrót kell rá írni?
-
#12487
Fire/SOUL/CD
félisten
fi:zi'k
#12479
válasz
fi:zi'k
#12479
üzenetére
A 2 függvény között a hibakezelésben van különbség, mert az első azt is megvizsgálja, hogy ha az E19 nem üres, akkor szám-ot(vagy számmá alakítható szöveget) tartalmaz-e vagy sem, hisz string-el nem lehet matematikai műveleteket végezni. A második ezzel nem foglalkozik, így ha az E19-be beírod, hogy UBUL, akkor az #ÉRTÉK hibát ad eredményül, míg az első függvény nem csinál semmit(pontosabban a kötőjelet adja vissza, mint üres cella esetén is)
-
#12485
Fire/SOUL/CD
félisten
WLDRK
#12484
A hagyományos érvényesítéssel létrehozott lenyíló csak egy oszlopot tud megjeleníteni, nem többet. Ahhoz, hogy mégis kivitelezhető legyen egy egyszerű "trükköt" kell alkalmazni.
Nyilván van egy munkalapod, ahol az adatok kapnak helyet, a példádnál maradva a NÉV, VÁROS, ISZ, TELEFONSZÁM külön oszlopokban.
Vegyél fel egy plusz oszlopot, amiben meg egyesíted egy egyszerű függvénnyel ezt a 4 oszlopot, majd az érvényesítéskor létrehozott lista tartományaként ezt adod meg.Képben, mire is gondolok: [link]
-
WLDRK
csendes tag
Sziasztok!
Szeretném a segítségeteket kérni abban, hogy excel egy munkalapján egy cellában szeretnék legördülő választéklistát létrehozni úgy, hogy az adattáblából kiválasztott elemhez tartozó többi oszlopban található információt is megjelenítse, ne csak azt az egy cellát.
Pl. ilyenek az oszlopok:
Név város irsz. telefon.
A legördülő listából , ha kiválasztok egy nevet akkor azt szeretném, ha hozná automatikusan magával az össze többi adatot is.
Ezt hogy lehet megcsinálni?
Köszönöm előre is a segítséget!
Üdv
WLDRK
-
Delila_1
veterán
válasz
poffsoft
#12480
üzenetére
Makróíráshoz, ami figyeli a bevitel helyét, tudnom kellene, melyik oszlopról van szó, de ezt nem adtad meg. Őszintén szólva az egész leírás kicsit zavaros nekem.
Írtam egy makrót, ami a 2. laptól (az első lap a januári adatokat tartalmazza) a 12-ig a C2:C30 tartományba beírja az előző lap C2:C30 értékeit hivatkozással. Hátha hasznodra válik.
Sub keplet()
Dim lap%
For lap% = 2 To 12
Sheets(lap%).Select
Range("C2:C30") = "=" & Sheets(lap% - 1).Name & "!C2"
Next
End Sub -
poffsoft
veterán
válasz
Delila_1
#12452
üzenetére
Egy egész éves műszakbeosztásban pl a megmaradt szabadnapokat minden hónapban összesíteni kell, és ezt görgetni végig az éven. Mivel minden hónap külön lapon van, így az előző hónap zárását a következő lapra (hónapra) át kell másolnom nyitásként, minden dolgozóra (sorra). Ezt szeretném ( a képlet beírását) klasszikusan makróként picit egyszerűsíteni. Tehát akkor futtatom a makrót, amikor pontosan azon a cellán állok, ahová az előző lap adott cellájának értékét szeretném bemásolni. A következő makró meg az, amelyik már az adott lapon, az első (előző lapra mutató képletet) átmásolja minden szükséges cellámba, de ezt már megcsinálja a makrófelvevő.
Pontosan annyi a problémám, hogy a makrófelvevő az előző lapra hivatkozáskor abszolút címet használ a lapnál ('LAP1!RC'), ahelyett, hogy relatív címet szúrna be ( valami ilyesmit, mint az Application.Caller.Parent.Previous.Range().Value)...
-
fi:zi'k
nagyúr
Mi a különbség a két művelet között? Ugyanazt kapom értéknek.
=HA(ÉS(E19<>"";SZÁM(E19));KEREKÍTÉS(E19*D18*0,9;0);"-")
és
=HA(E19<>"";KEREKÍTÉS(E19*D19*0,9;0);"-")Az egész onnan jön, hogy szeretném bővíteni/módosítani a képletet. Ez a P19 cellában van.
Vizsgálnia kellene hogy az adott sor Y cellájában mi szerepel. Ha semmi nem szerepel, akkor a KEREKÍTÉS(E19*D18*0,9;0) műveletet hajtsa végre, ahogy eddig is. Ha szám, akkor pedig a D19*E19 műveletet.Remélem érthető vagyok.
-
-
jani-wan
tag
válasz
m.zmrzlina
#12457
üzenetére
köszi értem
akkor ezt el is felejtem gyorsan -
#12464
GrandS
senior tag
m.zmrzlina
#12463
GrandS
senior tag
válasz
m.zmrzlina
#12463
üzenetére
Csak a keresett mező szerint rendezettnek kell lenni a táblázatnak!
-
amdk7
aktív tag
Sziasztok,
Kellene egy kis segítség!
Van egy ilyen táblázatom (az eredetit leegyszerüsítettem picit ):
A következő kellene:
A G8 cellába bevitt szöveget keresném az "B" oszlopban.
Ha megtalálta, akkor a hozzá tartozó adatokat kellene kiíratnom (szín, szám stb.)Remélem egyszerüen és érthetően fogalmaztam, gondolom van valami egyszerü megoldása.
Köszönöm előre is.
Üdv: amdk7
-
#12459
Delila_1
veterán
m.zmrzlina
#12457
Delila_1
veterán
válasz
m.zmrzlina
#12457
üzenetére
"ha már a Cells van használatban akkor a "B" helyett (második argumentum) én 2-t használnék"
Mostanában szoktam rá, hogy "B"-t használok inkább, mint oszlopszámot. 2-nél még könnyen követhető, de pl. 179-nél egy javításnál egyszerűbb követni a betűvel – FW – jelölt oszlop átírása.
-
Delila_1
veterán
válasz
jani-wan
#12453
üzenetére
Mikor sorokat töröltetsz, az oszlop aljától felfelé kell elindulni, másképpen kimaradnak a vizsgálatból bizonyos sorok.
Ez a makró a második sortól – címsort feltételezve – törli azokat a sorokat, ahol a B oszlopban kisebb dátum szerepel, mint az E1 cellában.
Sub DeleteRowbyDate()
Dim so As Long
For sor = ActiveSheet.UsedRange.Rows.Count To 2 Step -1
If Cells(sor, "B") < Range("E1") Then
Rows(sor).EntireRow.Delete
End If
Next
End SubAz ActiveSheet.UsedRange.Rows.Count a lapon létező utolsó sor számát adja.
Ha több sor van a lapon valamelyik oszlopban, mint a B-ben, a fenti helyett ezt írd: Range("B1").End(xlDown).Row -
#12457
m.zmrzlina
senior tag
jani-wan
#12453
m.zmrzlina
senior tag
válasz
jani-wan
#12453
üzenetére
Ez a makró azt akarja csinálni, hogy a 2. oszlop első cellájától végigmegy a 2. oszlop utolsó olyan cellájáig amiben van valami. Minden cellában lévő dátumot összehasonlítja a megadott dátummal (12/31/2012) és ha az kisebb mint a megadott dátum akkor törli az aktuális cella sorát. A baj ott van, hogy ebben a sorban:
Cells(i, "B").EntireRow.delete
szerintem elírás van. Írj az i helyére x-et. (a honlapon ahonnan kimásoltad ott is hibásan van) Illetve ha már a Cells van használatban akkor a "B" helyett (második argumentum) én 2-t használnék
Ja és hagyd ki a Debug.Print Cells(x, "B").Value sort is hacsak nem akarod kiíratni az Immediate ablakba az összes megvizsgált cella értékét!
-
jani-wan
tag
válasz
jani-wan
#12438
üzenetére
No, arra már találtam leírást hogy lehet sort töröltetni dátum alapján:
Sub DeleteRowbyDate()
Dim x As Long
For x = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
Debug.Print Cells(x, "B").Value
If CDate(Cells(x, "B")) < CDate("12/31/2012") Then
Cells(i, "B").EntireRow.delete
End If
NextEnd Sub
de sajnos nem értem egészen
Jól látom hogy ez
If CDate(Cells(x, "B")
a B oszlop x cellájában található dátumot megvizsgálja hogy kisebb-e mint "az általam megadott dátum", és ha igen akkor törli a "B" oszlop 9. sorát?viszont lövésem sincs az utasítás elején mit csinál.
mi a csuda az ott az x?
mert ha itt
If CDate(Cells(x, "B")
az x-et átírom a dátumot tartalmazó cellára akkor
itt
For x = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
mi a csuda folyik????
Ezt is át kell írnom?Arról nem beszélve hogy ez csak egy sor töröl, vagy be lehet álltani hogy több sort töröljön?
És ha már kérdezek akkor még egy dolog amit nem tudok, hogy van-e makro ami időnként lefut saját magától, és nem kell nekem aktiválni minden alkalommal?
Előre is köszönöm a segítséget.
-
Delila_1
veterán
válasz
poffsoft
#12449
üzenetére
Az előző lap kódnevét pl. így kaphatod meg:
lap = ActiveSheet.CodeName
lap = "Munka" & Right(lap, Len(lap) - 5) - 1
MsgBox lapNem szerencsés dolog aktív cellára hivatkozni makróban, mert ha véletlenül másik cellára kattintasz a makró indítása előtt, hamis eredményt kapsz.
Írd le pontosan, mit szeretnél elérni a makróval.
-
poffsoft
veterán
válasz
Delila_1
#12442
üzenetére
Nem kell kijelöltnek lennie, ezt a felvevő csinálta(nem nagyon értek a VB-hez).
A lényeg, hogy az aktuális lap előtti lap adott cellájának az értéke kerüljön át az aktuális lap adott cellájába. Összesen 12 lapom van ("Január", "Február", ... "December") , értelemszerűen "Február" az első, ahová másolnom kell.Ha jól gondolom, az aktív lap kódnevéből ("Munka2") tudnám az előző kódnevét a módszereddel előállítani, abból kellene a valódi nevet előállítani a formular1c1 számára.
Igazándiból arra próbáltam rákeresni, hogy a sheeteknek van-e olyan stricky variable-jük, mint a sor-oszlopnak, mert azoknál lehet viszonylag egyszerűen címezni ha jól értettem a google-t (pl: R-1C az aktív cella feletti cellát jelöli) . -
lomajpure
csendes tag
Sziasztok! Szeretnék segítséget kérni a következőben(3 probléma):
Adott 2 excel workbook. Mindkettőben van 3 sheet (de, du, éj)
Az lenne a cél, hogy az első, ha nyitva van, folyamatosan olvassa a másik celláit. pl. a 2. ban a du sheetből a C1 tartalmát az első du sheetjébe és az A1be másolja. A második probléma: az elsőt mikor megnyitjuk, ha nincs meg a 2. fájl kidob egy figyelmeztető ablakot, hogy nincs.
A harmadik: a 2 fájl hálózaton, két különböző helyen található. A segítségeteket előre is köszönöm!! -
bugizozi
őstag
válasz
archen
#12443
üzenetére
Szia!
Jó irányban próbálkoztál, csak kell egy kis módosítás
Mindkét megoldás jó lehet, úgy hogy(" & Cells(4, 8).Value & ",
vagy
(" & Range("H4").Value & ",
Ha esetleg így nem működik, akkor próbáld az aposztrófok számát növelni valahogy így:
("" & Range("H4").Value & "",
Remélem tudtam segíteni!
-
Delila_1
veterán
Az indító lapodhoz rendeld a kódot. A lapon bármit beírva a Q oszlopba a nevet és az email címet átmásolja a "Másolat" lap A és B oszlopába, az utolsó kitöltött sor alá.
Az első lapon a "bármi"-t törölve a Q oszlopból, törlődik a két adat sora a "Másolat" lapról.
Jól mutat, ha az első lap Q oszlopát Wingdings-re állítod, és jelölésnek ü karaktert viszel be, ami egy pipa jelet ad.Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 17 Then
Dim név$, email$, sor%, usor%, WS2 As Worksheet
Set WS2 = Sheets("Másolat")
név$ = Cells(Target.Row, 1).Value
email$ = Cells(Target.Row, 3).Value
usor% = WS2.Range("A" & Rows.Count).End(xlUp).Row + 1
If IsEmpty(Target) Then
For sor% = 2 To usor%
If WS2.Range("A" & sor%) = név$ And WS2.Range("C" & sor%) = email$ Then
WS2.Rows(sor%).Delete Shift:=xlUp
Exit Sub
End If
Next
Else
WS2.Cells(usor%, 1) = név$
WS2.Cells(usor%, 2) = email$
End If
End If
End SubA Set WS2 = Sheets("Másolat") sorban adhatod meg a saját lapod nevét a Másolat helyett.
-
archen
csendes tag
Sziasztok!
Lenne egy komoly problémám, ami a következő:
Makrót írok excelben, ami összeköttetést biztosítana MySQL-el OBDC-n keresztül (pontosabban táblázatot tölt fel szerverre). Azon a ponton akadtam el, ahol sql syntaxisban szeretnék egy Excel mezőre hivatkozni, mint változóra. Utána olvastam már számos külföldi fórumban, és láttam hogy ezzel másnak is volt problémája, azonban megoldás nem született rá eddig. A környezet a következő:strsql = "INSERT INTO test_table (Variant1,Variant2,Variant3,Variant4,Variant5,Variant6) VALUES ('" & _
esc(Str(.Cells(rowctr, 1).Value)) & "','" & _
esc(Str(.Cells(rowctr, 2).Value)) & "','" & _
esc(Str(.Cells(rowctr, 3).Value)) & "','" & _
esc(Str(.Cells(rowctr, 4).Value)) & "','" & _
esc(Str(.Cells(rowctr, 5).Value)) & "','" & _
esc(Str(.Cells(rowctr, 6).Value)) & "')"A probléma forrásai a Variant1,2,3,4... lennének, fix értéken tökéletesen működik a makró, azonban ami a cél lenne az az, hogy - esetünkben ezt a 6 column nevet - az excel tábla H4-H10 mezőiből szedje ki, próbálkoztam már több megoldással is, pl:
(" & Cells(4, 8) & "," & Cells(5, 8) & "," & Cells(6, 8) & "," & Cells(7, 8) & " ......)
vagy
(" & H4 & "," & H5 & "," & H6 & " .....)
Ha bárkinek bármi ötlete, vagy ezirányú tapasztalata lenne, nagyon hálás lennék érte!
előre is köszönöm!
-
Delila_1
veterán
válasz
poffsoft
#12441
üzenetére
Ha 10 alatt van a LAPok száma, ez is megoldás lehet:
ActiveCell.Select
x = "LAP" & Right(ActiveSheet.Name, 1) - 1
ActiveCell.FormulaR1C1 = "=" & x & "!RC[34]"
ActiveCell.Offset(1, 0).Range("A1").Selectde biztosan van egyszerűbb kivitel. Minden esetben az A2 cellára kell állni a futtatás után?
-
poffsoft
veterán
Üdv!
Makróban kellene egy kis segítség: A makrófelvevővel a 'LAP2' munkalap adott cellájába kell az előző ('LAP1') lap celláját bemásolni. A makrófelvevővel ezt alkottam:
Sub Rögzítés9()
'
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=LAP1!RC[34]"
ActiveCell.Offset(1, 0).Range("A1").Select
End SubEzzel az a bajom, hogy pl a 'LAP3'-on futtatva is a 'LAP1'-ről másolja át, de nekem ott a 'LAP2'-ről kell. Vagyis mindig az aktív lap-1 számú lapról....
Ezt hogyan lehetne megoldani? -
háma
csendes tag
Helló mindenki.
Első ittlétem alkalomból kívánok boldog új évet mindenkinek.
Segítségre szorulok egy megoldandó feladattal.
1es munkalap A oszlopban nevek vannak. C oszlopban e-mail címek. A Q oszlopba minden sorban szeretnék egy jelölőnégyzetet vagy pipát vagy ilyesmit.
És ha bepipálom a 2es munkalapra másolja át az adatot az "A1" cellából és a "C1" cellából az A1 és B1 oszlopokba.
És ha bepipálom a 2es munkalapra másolja át az adatot az "A4" cellából és a "C4" cellából az A2 és B2 oszlopokba. Tehát helykihagyás nélkül.
Ezen felül ha kiveszem a pipát, törölje az adatokat a 2esből.Bármilyen megoldás érdekel részben vagy egészben.
SOKSOK köszi.
-
háma
csendes tag
Helló mindenki.
Első ittlétem alkalomból kívánok boldog új évet mindenkinek.
Segítségre szorulok egy megoldandó feladattal.
1es munkalap A oszlopban nevek vannak. C oszlopban e-mail címek. A Q oszlopba minden sorban szeretnék egy jelölőnégyzetet vagy pipát vagy ilyesmit.
És ha bepipálom a 2es munkalapra másolja át az adatot az "A1" oszlopból és a "C1" oszlopból az A1 és B1 oszlopokba.
És ha bepipálom a 2es munkalapra másolja át az adatot az "A4" oszlopból és a "C4" oszlopból az A2 és B2 oszlopokba. tehát helykihagyás nélkül.
Ezen felül ha kiveszem a pipát, törölje az adatokat a 2esből.Bármilyen megoldás érdekel részben vagy egészben.
SOKSOK köszi.
-
jani-wan
tag
Hali és boldog új évet mindenkinek
Két dologban kérnék segítséget.
Az első, hogy problémám van weboldalon lévő adatok excelbe másolásával. Sajnos a legtöbb helyen a nem egész számok esetében nem vesszőt használnak hanem pontot, és a másoláskor az excel ezt dátumnak értékeli. Így a 4.6 excelben 2011 árilis 6.-a ként jelenik meg. És ebből nem tudok 4,6-ot csinálni sehogy sem.
Ez ugye egy-két számnál nem jelentene nagy gondot ,de párszáz esetében már kihullik a hajam.
Az lenne a kérdésem hogy ezt a problémát meg lehet valahogyan oldani, illetve ha igen akkor hogyan?A második hogy lehetséges-e VBA-val mindent adatot törölni az összes, vagy csak egy lapról, cellaérték alapján.
Ha igen akkor örülnék egy leírásnak.Köszönöm
-
Andie
őstag
Sziasztok!
Szeretnék átmásolni különböző -nem összefüggő- sorokat másik sheet-be.
Tehát mondjuk a 4. és 8. sort szeretném átvinni. Ekkor ugye kijelölöm a 4. sort, majd ctrl-t nyomva a 8.-t. Ez idáig megy is. Aztán átlépek a Munka2-be, és a 4. sorba állva ctrl + V - mire beteszi a 4. sort a 4. sorba, a 8. sort meg az 5.-be...
Azt szeretném, ha az új helyen is a 4. és 8. sorba másolná a forrás sorokat.
Próbáltam már minden helyen keresni, még googlén is, de nem találok megoldást - kétlem, hogy ne lenne. Office 2003-am van.
Makrós megoldás nyilván kézenfekvő, de biztos van gyorsbillentyüs is...Köszi!
-
Delila_1
veterán
válasz
paatrick
#12432
üzenetére
Sub ved()
Dim lap%
For lap% = 1 To Sheets.Count
Sheets(lap%).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="SzuperTitok"
ActiveSheet.EnableSelection = xlNoSelection
Next
End SubA Password-nél add meg a saját jelszavadat, vagy ha nem akarod jelszavazni, akkor el is hagyhatod. Ebben az esetben a Scenarios:=True utáni vesszőt is töröld ki.
Az ActiveSheet.EnableSelection = xlNoSelection sor letiltja a zárolt cellák kijelölését, ezt is elhagyhatod. -
erich85T
csendes tag
Sziasztok!
Egy másik fórumban már feltettem ezt a kérdést de itt is megpróbálom. Múltkor már írtam a fórumban, és kaptam is segítséget amiért nagyon hálás vagyok, nagyon megkönnyítette a munkámat. Azonban akadt egy másik problémám is amit megkellene oldanom excelben, remélem ismét sikerül valamiféle segítséget kapnom.
Feladat: Kamatszámítás
Adott egy excel táblázat egy „Tartozások”, valamint egy „Jegybanki alapkamat” munkalappal.
A „Tartozások” munkalapon az alábbi oszlopok vannak:
Tartozás kezdetének dátuma - Tartozás kiegyenlítésének dátuma – Név - Tartozás összege (kamat nélkül) - Tartozás összege (kamattal)
Az első 4 oszlopban lévő adatok adottak, nekem az 5. oszlopba kellene valamilyen módon Excel segítségével összeget számolnom a „Tartozás kezdetének dátuma „ valamint a „Tartozás kiegyenlítésének dátuma” alapján a „Jegybanki alapkamat” fülön lévő értékekkel.A probléma az, hogy egy adott kezdő dátumtól az adott kiegyenlítés dátumáig akár több jegybanki alapkamat változás is történik. Eszerint több jegybanki alapkamattal kell számolni az adott intervallumban ahhoz, hogy megkapjuk a „Tartozás összege (kamattal)” oszlop értékeit.
Tehát röviden: Egy kezdő és egy befejező dátum közötti intervallumban az alaptartozásra akarom megkapni a kamattal számolt tartozás összegét úgy, hogy az adott dátumtól dátumig lévő időszakban több jegybanki alapkamattal kell számolnom.
Excel fájl: http://muszakitanacsado.hu/doksi/kamatszamitas2.xlsx
Találkozott e már valakin hasonló feladattal? Van-e valakinek valamiféle megoldása rá? Excelben ez egyszerűen megoldható vagy makroprogramot kell rá írni?
Előre is köszönöm a hozzászólásokat!
-
Palyika
csendes tag
Próbálkozom a feltételes formázással.
Az alapfeltétel ez lenne:Ha H7 mező értéke = "Kész" felirattal, akkor A7 értékére érvényesüljön egy szín formázása, vagy áthúzás, vagy bármi kiemelés.
Azonban akármit is csinálok, nem sikerül.
Mivel a képfeltöltés szünetel, így adom meg:
Szabály: "Képlet: =HA(H7;Kész)"
Formátum: .....
Érvényesség: "=$A$7"
Leállítás, ha igaz: pipa bentMit rontok el?
-
balázz
csendes tag
Sziasztok !
Boldog Újévet
Van egy táblázatom 3 munkalappal 5000 adattal
Lenne 3 kérdésem amiket nem tudok megcsinálni.?
1.Hány hallgató született abban a megyében, amelyikben a második legkevesebb hallgató született?
2.Hány olyan hallgató van, akinek a vezetékneve, keresztneve és a születési helye nem ugyanazzal a betűvel (1 karakter) kezdődik?
3.Hogyan tudom párosítani a születési helyeket a megyékkel? (munkalap2,3)
Előre is köszi
-
kissgy04
tag
Sziasztok
Ecdl vizsgára készülök és segítséget szeretnék kérni.
Az ECDL mintafeladatok könyvében az alábbi feladat van:A feladat 4. pontjának megoldására nem jövök rá. Én ezzel a képlettel próbálkoztam, ami hibás =FKERES(MAX(B2
13);A213;2;HAMIS)Segítséget előre is köszönöm, és BÚÉK mindenkinek.
-
#12414
gyga
senior tag
Fire/SOUL/CD
#12413
gyga
senior tag
válasz
Fire/SOUL/CD
#12413
üzenetére
kösz, a szorzást a végérő elfelejtettem
-
#12413
Fire/SOUL/CD
félisten
gyga
#12412
-
Z-Tom-ee
csendes tag
Van egy kis gondom... Delila_1 írt nekem egy makrót, ami csak az általa küldött táblában hajlandó működni. Ezzel még önmagában nem lenne gond, elkezdtem átalakítani arra a formára, ami nekem kell. Egy ideig a makró működött is, aztán egyszercsak nem. Nem tudom, mi változott, csak a táblázatba irkáltam dolgokat, teszteltem a makrót, feltöltöttem adatokkal, stb. Valami miatt nem stabil, nem értem miért. Van valami más megoldás a problémára?
-
Z-Tom-ee
csendes tag
Sajnos nem találtam meg a hibát, valahol valami svindli van. Jobb híján egy olyan táblát alakítok át, amit kaptam, és amiben működik is a makró. Sajnos kénytelen vagyok újra megírni mindent (szerencsére nem bonyolult), de még mindig ott van a nagy kérdés: OpenOffice-ba való átkonvertálás után vajon működik-e. Legutóbb megszenvedtem, mire minden feltételes formázás rendesen helyre rázódott, bízom benne, hogy most gyorsabb lesz.
Köszönet mindenkinek a segítségért és BUÉK! -
Z-Tom-ee
csendes tag
Nyitottam egy új táblát, bemásolgattam a programot és tesztelgettem. Az A oszlopba pakoltam a hivatkozásokat és a B-ben írattattam ki. Ha előre kitöltöm a függvénnyel a B oszlopot, akkor nem működik. Ha először az A oszlop adott cellájában megcsinálom a hivatkozást és utána írom be a B oszlop megfelelő cellájába a függvényt, akkor jól működik, azt írja ki, ami a link és nem az Excel helyét...
-
#12408
Z-Tom-ee
csendes tag
Fire/SOUL/CD
#12407
Z-Tom-ee
csendes tag
válasz
Fire/SOUL/CD
#12407
üzenetére
Jobb gomb => hiperhivatkozás, ott megadom a "látható szöveget" meg egy elérési utat a gépen lévő mappák armadájából. Nem ez a módja? Erre nekem folyamatosan az Excel helyét adja ki, persze ennek köze sincs ahhoz a helyhez, amit a teszt során behiperhivatkoztam...
(most addig ülök itt, amíg meg nem oldom ezt az überbonyolult problémát (gyakorlatilag megoldottátok helyettem, csak valamit bénázok, ami bosszantó...)) -
#12407
Fire/SOUL/CD
félisten
Z-Tom-ee
#12405
válasz
Z-Tom-ee
#12405
üzenetére
Mindegy, hol van a fájl... Lehet másik partíció, lemezen, weben, szóval mindegy.
Ha helyesen szúrsz be hivatkozást, akkor ilyen probléma nem lehet. -
#12405
Z-Tom-ee
csendes tag
Fire/SOUL/CD
#12404
Z-Tom-ee
csendes tag
válasz
Fire/SOUL/CD
#12404
üzenetére
Semmi gond.
Bemásoltam az előző helyére és kiír ugyan egy útvonalat, de nem az adott cellában szereplő linket jeleníti meg, hanem az Excel fájl elérési útját minden cellába... Kaptam egy másik megoldást is, az kicsit összetettebb, de ugyanezt produkálja; mi lehet ennek az oka? -
#12404
Fire/SOUL/CD
félisten
Z-Tom-ee
#12403
-
#12403
Z-Tom-ee
csendes tag
Fire/SOUL/CD
#12402
Z-Tom-ee
csendes tag
válasz
Fire/SOUL/CD
#12402
üzenetére
Így már minden tiszta. Zseniális ez a program, kipróbáltam. Sajnos az én problémámat nem oldotta meg, mivel nekem hiperhivatkozásokat kellene kihámoznom egyes cellákból (elérési útvonalakat a gépen lévő mapparendszerekben), de nagyon tetszik, elteszem, egyszer még jól jön. =) Köszönöm még egyszer a segítségeket.
-
#12402
Fire/SOUL/CD
félisten
Z-Tom-ee
#12401
válasz
Z-Tom-ee
#12401
üzenetére
Korábban makróban lett írva egy saját készítésű függvény, aminek a neve MyCellFormula.
A megnyitott munkafüzetben ALT+F11/Insert menü/Module és a jobb oldalon megjelenő új ablakba bemásolod a korábbi kódot. Ezt követően ezt az ablakot (amit VBA Editor-nak neveznek) bezárhatod.Erre a függvényre ugyanúgy kell hivatkozni a munkafüzetben, mint az Excel beépített függvényeinek bármelyikére, azaz ráállsz egy cellára és elkezded begépelni hogy =MyCellFormula(A1) Az A1 az egy cellahivatkozás, értelem szerűen arra állítod, amely cellából kiszeretnéd szedni a képletet. Ugyanúgy másolható pl egérrel, mint pl a SZUM és a többi függvény.
-
#12401
Z-Tom-ee
csendes tag
Fire/SOUL/CD
#12400
Z-Tom-ee
csendes tag
válasz
Fire/SOUL/CD
#12400
üzenetére
Bevallom töredelmesen hülye vagyok ehhez.
Hogyan tud ez segíteni nekem? Ha VBA felületen akarom futtatni, egy nevet kér, ha nem adok neki, nem történik semmi, ha adok, a bemásolt rutin alá egy új programot akar csinálni vonallal elválasztva. A munkafüzetben pedig nem történik semmi... 
ezt potnosan így képzeltem el én is.
Új hozzászólás Aktív témák
Hirdetés
Fferi50- Sony MILC fényképezőgépcsalád
- Luck Dragon: Asszociációs játék. :)
- Építő/felújító topik
- Szeged és környéke adok-veszek-beszélgetek
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Házimozi haladó szinten
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Formula-1
- Filmgyűjtés
- HiFi műszaki szemmel - sztereó hangrendszerek
- További aktív témák...
- 0% THM 3 havi részlet! Beszámítás, 27% áfa, Sapphire Nitro+ RX 9070XT 16GB készletről
- BESZÁMÍTÁS! Gigabyte B450M R5 5600X 16GB DDR4 512GB SSD RTX 3060 12GB Rampage SHIVA Seasonic 520W
- Bomba ár! HP ProBook 430 G5 - i5-8GEN I 8GB I 256GB SSD I HDMI I 13,3" I Cam I W11 I Garancia!
- Azonnali készpénzes Microsoft XBOX Series S és Series X felvásárlás személyesen/csomagküldéssel
- ÁRGARANCIA!Épített KomPhone Ryzen 7 5700X 16/32/64GB RAM RTX 3060 12GB GAMER PC termékbeszámítással
Állásajánlatok
Cég: PC Trade Systems Kft.
Város: Szeged
Cég: PC Trade Systems Kft.
Város: Szeged