-
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
-
Delila_1
Topikgazda
válasz zsotesz81 #8100 üzenetére
Ha már megadtad a feltételben, hogy szám esetén másoljon, mi szükség van a másik két feltételre?
Sheets("data").Select
For b = 1 To 15
If IsNumeric(Cells(b, 2)) = True Then
oszlop = Worksheets("result").Range("IV1").End(xlToLeft).Column + 1
Worksheets("result").Cells(1, oszlop) = Cells(b, 2)
End If
Next[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz zsotesz81 #8100 üzenetére
Hali!
Ez egy kicsit hosszabb kód, de azért írtam így, hogy más "technikát" is láss benne, amit a későbbiekben tudsz hasznosítani esetleg...
Private Sub CommandButton1_Click()
Dim SrcSheet As Object
Dim DestSheet As Object
Dim My_Range As Range
Set SrcSheet = ThisWorkbook.Sheets("Munka1")
Set DestSheet = ThisWorkbook.Sheets("Munka2")
Set My_Range = SrcSheet.Range("A1:" & Range("A1").End(xlDown).Address)
SrcSheet.Select
My_Range.Select
DestSheet.Select
DestSheet.Range("A1").Select
For Each CurrCell In My_Range
If IsNumeric(CurrCell.Value) Then
ActiveCell = CurrCell.Value
ActiveCell.Offset(0, 1).Select
End If
Next CurrCell
SrcSheet.Select
Set My_Range = Nothing
Set SrcSheet = Nothing
Set DestSheet = Nothing
End SubFire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
zsotesz81
senior tag
válasz Delila_1 #8101 üzenetére
köszi, műxik.
A többi feltétel azért van mert valamiért az üres cellánál is belement a feltételbe, a másik meg ezeket a számokat országonként kellene szétmásolni, csak azt nem tudom, hogy ezt még hogy oldjam meg (még csak amolyan próbálkozás). Tehát Austriához (C1) tartozik a B6-ban és B12-ben lévő szám, utána
Arabemirates-hez(C17) a B22-ben és a B28-ban lévő számok, és így tovább. Az a gond, hogy van olyan ország ahol nem csak két számot kell másolni hanem többet. -
zsotesz81
senior tag
válasz Fire/SOUL/CD #8102 üzenetére
köszi, elrakom egy txt-be, hátha egyszer még jól jön
-
Delila_1
Topikgazda
válasz zsotesz81 #8104 üzenetére
Egy do-loop ciklussal végignézed a B oszlop tagjait az utolsó sorig. Ha a cella értéke "Resolved", akkor a másolás helye az ofszet(0,1) nevű lap. Innen egy belső do-loop ciklussal menj mindig a következő "Resolved"-ig, és ebben a belső ciklusban legyen a számok átírása az aktuális ország lapjára.
Biztos finomítani kell rajta.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz Delila_1 #8107 üzenetére
Hali!
Mármint a Címjegyzékre vagy a Fiókokra érted?
Csak azért kérdem, mert a héten 2 emberkének is ilyen gondja volt, mindkét esetben egy szépséges kártevőt sikerült beszerezni...
(Mindkét gépet újratelepítettem, formázás után, remélem nálad nem ez lesz a szitu.... )Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz Fire/SOUL/CD #8108 üzenetére
Az Outlook Express-t használom. Egyszerűen láthatatlanná váltak a címek (amiket nem a C meghajtón tárolok), de megvannak. Rájuk tudok keresni, és néhány kattintással ki tudom találni az ismerősök levélcímét. A bejövőknél az általam megadott nevet mutatja, nem az e-mail címet.
Ha behívom a Címjegyzéket, azt lódítja, hogy nincs egy darab sem.
Már csináltam egy rendszer-visszaállítást, az sem segített. Azt hiszem, marad a leradírozás, és újra telepítés.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bnorci71
addikt
Szasztok!
készítettem egy excel táblát amibe egy focibajnokság eredményei kerülnek folyamatos féltöltésre, a beírt eredmény alapján számolja a tábla végén a szokásos dolgokat lejátszott mérkőzések gólkülönbség pontszám.
Most ABC sorrendben vannak a csapatok.
A nagy kérdés meg lehet azt oldani, hogy a későbbiek folyamán a pontszám>gólkülönbség alapján rakja sorba a tábla magától a sorokat?
A könnyebb átláthatósághoz itt egy képernyőfotóJa még valami az eredmények most 2 cellába vannak írva a 2 cella közé nem lehetne kettőspontot varázsolni?
"If in doubt, flat out!" "Straight roads are for fast cars, turns are for fast drivers"
-
félisten
válasz bnorci71 #8110 üzenetére
Hali!
Kijelölöd a (képed alapján) A2 : AI14 cellákat, aztán Adatok/Sorbarendezés. Itt lesz olyan hogy Rendezze és Majd, ennek segítségével megadhatsz több oszlopot rendezési szempontnak. Esetedben elsődlegesnek a pontszám oszlopát, másodlagosnak meg a gólkülönbséget.
Végül is lehet elválasztani az eredményt, de itt talán nem célszerű, hisz 2 cellából könnyebb kiszámoltatni a gólkülönbséget például...
Arra gondolok, hogy (megint csak a képed alapján) az AH2 cellába beírod ezt a képletet és lemásolod ameddig kell.=HA(B2>C2;B2-C2;C2-B2)
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
scott_free
senior tag
hi,
Excel 2003-ban lehetséges választógombokat létrehozni?
(egy cellában 2 pötty, amelyiket kiválasztom, a cella annak megfelelő értéket ad vissza)thx!
-
scott_free
senior tag
válasz scott_free #8114 üzenetére
na még egy:
C1 cella értéke "A" vagy "B" lehet, és ennek megfelelően egy másik képletben vagy az "A" vagy a "B" oszlop elemei kerülnének felhasználásra.
de hogyan tudom a C1 cella értékét beletenni egy képletbe?
próbáltam ilyesmit: D1=(C1)1 - sikertelenül.a microfos súgójában pedig semmit sem lehet megtalálni - legalábbis ha nem beszéled a "titkos" excel nyelvet (és nem ismered magadtól az összes függvényt és képletet...)
-
félisten
válasz scott_free #8115 üzenetére
Hali!
Makróban Range("C1"), hagyományosan meg pl a D1 cellába =C1 & " oszlop" (bár ennek amúgy nem nagy értelme vagyon)
Cellába beírt függvények kötelezően egyenlőségjellel kell hogy kezdődjenek.Fire.
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
scott_free
senior tag
válasz Fire/SOUL/CD #8116 üzenetére
nem fogalmaztam világosan:
azt szeretném, ha a D1=A1 vagy B1, attól függően, hogy C1=A vagy B.
(tehát a C1 értéke helyettesítené/adná meg a cellahivatkozásban az A vagy B oszlopot).de mindegy, végül megoldottam máshogyan.
viszont egy újabb alapvető dolog, amire a súgóban nem találtam választ: hogyan tudom mozgatni az oszlopokat a táblázaton belül?
tehát mondjuk az F oszlopot szeretném áthúzni, betenni az A és B oszlop közé. (úgy, hogy persze automatikusan tolja el az oszlopokat utána) -
félisten
válasz scott_free #8117 üzenetére
Hali!
Ja, akkor ilyen egyszerűen, D1-be írd be ezt
=HA(C1="A";A1;B1)Persze ha szükséges, még megvizsgálható, hogy ha nem A van C1-ben akkor B van-e és ha nem A vagy B, akkor lehet kiírni valami, pl
=HA(C1="A";A1;HA(C1="B";B1;"Nem A és nem B szerepel C1-ben"))F oszlopazonosítón jobb egér/Kivágás majd jobb egér azon az oszlopazonosítón ami elé szeretnéd beszúrni és Kivágott cellák beszúrása.
Fire.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Delila_1
Topikgazda
válasz scott_free #8117 üzenetére
Minden feladatra van több megoldás.
A C1 képlete: =indirekt(C1&1). A C1 cella adja az A, vagy B értéket, az & jellel hozzáfűzött 1-es az első sort.
Oszlop átmozgatása: kijelölöd az F oszlopot, a bal széle fölé állsz az egér mutatójával, míg kereszt alakú lesz nyilakkal a 4 végén. A bal gombot nyomva tartva húzod balra, mikor elértél az A oszlop fölé, megnyomod a Shift billentyűt, és felereszted az egér bal gombját.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Kobe
veterán
még 1 kérdés.
Van egy pivot tábla (kb 2-3000 soros) és ehhez a pivothoz jobb oldalra van hozzácsapva 2 oszlop - mindkettő kommentelésre szolgál, de nem a pivot része, csak a pivotnak megfelelő sorba mellév an írva egy megjegyzés
Szeretnék csinálni egy kivonatot summary sheetet a pivot táblázatból, ami ugyanolyan struktúrában mutatja ugyanazokat az adatokat, de csak azokat amiknél van valami a komment fieldben
Erre azért volna szükségem mert 3 tartalmilag és felépítésében azonos pivotból kellene összrakni 1 db kivonatot, és mauálisan kitörölgetni a nem kommentált mezőket (cca 10ezer sorból kb) elég húzós
-
Delila_1
Topikgazda
válasz scott_free #8114 üzenetére
Meg lehet oldani a két "pöttyöt" is, de sokkal egyszerűbb az érvényesítés.
A cellán állva (vagy több cellát kijelölve, ha többe is be akarod tenni a két érték közüli válsztás lehetőségét), Adatok/Érvényesítés. A Beállítások fülön a Megengedve legördülőből a Listát választod, a Forráshoz beírod a két lehetőséget, pontosvesszővel elválasztva.
Nézd meg a Figyelmeztető üzenet, és a Hibajelzés füleket is, egyik kiállítása sem kötelező.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Ez a makró az A oszlopban A1-től figyeli, van-e megjegyzés. Ha nincs, törli a sort.
Sub DelRow()
Dim sor As Integer
sor = 1
Do While Cells(sor, 1) <> ""
If Range(Cells(sor, 1).Address).Comment Is Nothing Then
Rows(sor).EntireRow.Delete
sor = sor - 1
End If
sor = sor + 1
Loop
End SubAz A helyett 2 helyen a Cells(sor,1)-ben írd át az 1-et az oszlopod sorszámára. Ha nem az első sortól akarod a vizsgálatot végrehajtani, a sor=1-et írd át.
A makró feltételezi, hogy a kérdéses oszlop minden cellájában van valamilyen adat, ott is, ahol nincs megjegyzés.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Kobe
veterán
válasz Delila_1 #8122 üzenetére
köszi, kipróbálom majd
ezekszerint ha fogom a 3 pivot táblát és egymás alá illesztem mondjuk egy új sheetben, akkor végig fut az egészen?"A makró feltételezi, hogy a kérdéses oszlop minden cellájában van valamilyen adat, ott is, ahol nincs megjegyzés."
ezt nem egészen értem, mármint értem, hogy mit jelent, de magyarra lefordítva akkor bármilyen olyan sort kitöröl a táblázatból, ahol adott oszlop adott sorában semmilyen adat nincs ? ezt akrja jelenteni ?
illetve befolyásolja a makró működését, hogy a commentek nem kézzel beírt kommentek, hanem előre kiválasztható listából legördülő menüvel lehet választani közülük?[ Szerkesztve ]
-
Delila_1
Topikgazda
"nem a pivot része, csak a pivotnak megfelelő sorba mellév an írva egy megjegyzés"
Akkor más a helyzet. A kimutatásokat másold egy lapra egymás alá, értékként beillesztve, mert a pivotokból nem engedi az Excel a sortörlést. Mivel nem írtad, melyik oszlopokban vannak a billentyűzetről – vagy érvényesítésből – bevitt megjegyzések, önhatalmúlag a H és I oszlopokba tettem (8. és 9. oszlop). Ezeket írd át a makróban a megfelelőkre.
Sub DelRow()
Dim sor As Integer, usor As Integer
usor = Range("A50000").End(xlUp).Row
For sor = usor To 2 Step -1
If Cells(sor, 8) = "" And Cells(sor, 9) = "" Then Rows(sor).EntireRow.Delete
Next
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
scott_free
senior tag
válasz Delila_1 #8121 üzenetére
köszönöm a segítséget!
a legördülő listánál meg lehet azt csinálni, hogy egy másik cella értékétől függően mutassa a választási lehetőségeket?
pl. A1 cellában megadhatok számokat 1-10-ig, és az itteni értéktől függően a B1 cellában a legördülő listában pl. 1-től (11-A1)-ig mutassa a számokat. (vagyis ha pl. az A1=3, akkor a legördülő listában már csak 1-tól 8-ig legyenek a számok, és ne 10-ig)[ Szerkesztve ]
-
bnorci71
addikt
válasz Fire/SOUL/CD #8111 üzenetére
Köszi mindenkinek
tényleg ezt már használtam csak attól féltem a képletek összekeverednek.
Pulsar
na ez a megoldás már elkésett
elég sok a képlet a beszúrástól meg elcsúszna minden. Vagy nem?Delila_1
kipróbáltam
köszi"If in doubt, flat out!" "Straight roads are for fast cars, turns are for fast drivers"
-
Delila_1
Topikgazda
válasz scott_free #8125 üzenetére
Nem egészen értem, hogy jött ki az A1=3-ból az érvényesítés 1-8 listája.
Beteszek egy képet, ahol a megjeleníthető értékek az F1:F10 tartományvan vannak, és az A1 értéke adja a legördülő lista utolsó elemét.
Az érvényesítésben a forrás képlete: =OFSZET($F$1;0;0;A1;1)Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz scott_free #8125 üzenetére
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz scott_free #8129 üzenetére
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bnorci71
addikt
na még egy extra a foci tabella excel táblámhoz, ha már sorbarakja, az utolsó oszlopba hogy lehet elérni azt hogy egy nyilacskával mutassa hogy a csapat felfelé/lefelé mozdult vagy ép helyben maradt ?
"If in doubt, flat out!" "Straight roads are for fast cars, turns are for fast drivers"
-
bnorci71
addikt
válasz Fire/SOUL/CD #8111 üzenetére
"If in doubt, flat out!" "Straight roads are for fast cars, turns are for fast drivers"
-
zsotesz81
senior tag
Hali!
Az activate és a select között mi a külömbség?
Pl. sheets("sheet1").activate, sheets("sheet1").select -
félisten
-
perfag
aktív tag
válasz zsotesz81 #8133 üzenetére
Chip Pearson válasza.
-
zsotesz81
senior tag
Hali!
Újabb kérdés: van egy könyvtáram amiben van 19 db txt. Ezeket be szeretném úgy importálni, hogy a txt fileok tartalma külön munkalapra kerüljön, és a munkalap neve a txt file neve legyen. Tehát pl. az 1.txt file tartalma kerüljön az "1" nevű munkalapra, a 2.txt file tartalma a "2" nevű munkalapra stb.
Úgy meg tudnám oldani, hogy makrórögzítéssel felveszem a kódot aztán ez copy-paste 18-szor, de nem akarok km hosszú kódot. Meg lehet ezt valahogy odani rövidebben? -
perfag
aktív tag
válasz zsotesz81 #8136 üzenetére
Nem tudom. Mondjuk én nem vagyok híve a kísérletezésnek, inkább megnézem az Excel MVP-sek, hogy csinálják. Chip Pearson és Ole P. Erlandsen . Ezt kipróbálnám egy text fájlon, majd írnék saját eszemtől egy lapbeszúró makrót és az egészet beletenném egy ciklusba.
-
scott_free
senior tag
-
Abi8211
csendes tag
Sziasztok
Két nap után rájöttem a problémára, ugyanis a forrás file-ban a számok azok nem Number formátumúak, hanem custom #.00 ha ezeket átformázom Number-re, akkor már írja is ki a C oszlopba az értékeket.
Kérdés tehát adja magát, 450 file-ban hogyan tudom legegyszerűbben a formátumot?
-
Delila_1
Topikgazda
válasz Abi8211 #8139 üzenetére
Egy üres cellába beírsz egy egyest - ez szám, vagy általános formátumú legyen. Másolod a cellát, kijelölöd a rosszul formázott tartományt, jobb klikk, Irányított beillesztés, bejelölöd az Érték-, és a Szorzás választókat.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
válasz scott_free #8138 üzenetére
Igen, minden gépen be kell kapcsolni, másképp a makró nem ismeri fel a függvényt.
Makró nélkül is érdemes bekapcsolni, sok új függvényt biztosít.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Abi8211
csendes tag
Hát korai öröm volt az előző hozzá szólalásom (admin esetlegesen törölhetné), ugyanis csak abból a file-ból "veszi" ki az adatot, ami megvan nyitva, és mindig egyszerre csak helyen, a többin #REF! hibát jelez.
A kérdésem, nem tudna nekem segíteni ebben a problémában, esetlegesen egy macroval?
Előre is köszönöm!
-
mrmrg
tag
sziasztok!
a következőben szeretnék segítséget kérni:
Az A oszlopban 1 és 5000 közötti számok vannak. A lista nem folyamatos, nem minden szám szerepel benne. Szeretném egy másik oszlopba megkapni azokat a számokat amik nincsenek felsorolva az első oszlopban.
köszi, üdv: mrmrg
-
Delila_1
Topikgazda
Vidd be egy oszlopba 1-től 5000-ig a számokat. Legyen a példában ez az F oszlop.
A G1 képlete: =darabteli(a:a;f1)
Lemásolod. Ahol a G oszlop 0 értéket ad, a vele azonos sorban lévő F cella mutatja az A oszlop hiányzó elemét.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Szúrj be egy sort az első elé. Az F1-be és a G1-be adj egy-egy címet. Jelöld ki a két cellát, Data/ Autofilter.
Kapsz egy-egy nyilacskát az F1-ben és a G1-ben, az utóbbi legördülőjében jelöld ki a nullát.
Az F oszlop látható celláit kijelölöd, és átmásolod egy másik lapra. Ezután az F és G oszlopokat kitörölheted.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Kobe
veterán
egy olyan szummázási képlet kellene nekem amivel egy adott oszlopban levő számokat abszolút érték szerint tudom összeadni
pl az oszlop elemei
150
-150
200
-230akkor ne -30 at adjon eredménynek, hanem 730at
-
félisten
Új hozzászólás Aktív témák
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Windows 10 Home COA fizikai licencek kiárusítás ingyenes szállítással
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- PC JÁTÉKOK (OLCSÓ STEAM, EA , UPLAY KULCSOK ÉS SOKMINDEN MÁS IS 100% GARANCIA )