-
GAMEPOD.hu
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
Kijelölöd és "megfogod" a sort, feljebb húzod. A Shift-et lenyomva látod, hogy éppen melyik sor elé tudod beilleszteni, ott egy szürke vízszintes vonal látszik. A megfelelő helyen elengeded az egér gombjá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.
-
-
Fferi50
őstag
Szia!
Jó az ismétlődések eltávolítása.
Egy üres munkalapra másold fel először a második munkalap adatait, majd az első munkalapét alá. Tehát azt másolod először, amivel felül szeretnéd írni az értékeket.
Kijelölöd az egész adathalmazt. Ezután ismétlődések eltávolítása csak az azonosító oszlopát kijelölve.
Mivel ez a művelet a legelőször talált tételeket hagyja meg, a többször előforduló tételeknél az első marad meg - ezért kell először a felülírásra használandó adatokat bemásolni.
Üdv. -
Delila_1
Topikgazda
Látom, régi verzióval (xls kiterjesztés) dolgozol.
Nálam a két füzet régi.xls, ill. új.xls névre hallgat, mindegyikben az első munkalapon vannak az adatok, és mindkettőben az első sor a fejléc.A makró:
Sub Frissites()
Dim sorRegi As Long, sorUj As Long, usor As Long, ide
usor = Workbooks("új.xls").Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
For sorUj = 2 To usor
On Error Resume Next
ide = Application.Match(Workbooks("új.xls").Sheets(1).Cells(sorUj, 1), Workbooks("régi.xls").Sheets(1).Columns(1), 0)
If VarType(ide) = vbError Then _
ide = Application.WorksheetFunction.CountA(Workbooks("régi.xls").Sheets(1).Columns(1)) + 1
Workbooks("új.xls").Sheets(1).Rows(sorUj).Copy Workbooks("régi.xls").Sheets(1).Range("A" & ide)
Next
End Sub
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
-
Fferi50
őstag
Szia!
Kérdés kérdést szül.
"Mindazon sorok, melyek megegyeznek a két fájlban, a hátterük zöldre vált."
Itt gondolom az azonosító egyezőségére gondolsz és a fő fájlban felülíródik az adat. Ezt kellene a fő fájlban zölddel jelölni.
Ha nem talál az aktualizáláshoz egyező azonosítót, akkor marad a fő fájl adata.
Ebben az esetben én egy munkafüzetbe tenném a két munkalapot. A fő munkalapon egy segédoszlopban FKERES függvénnyel megkeresném a mellék fájlban az azonosítót.
Ezután feltételes formázással színezném azokat a sorokat, ahol nem hiba az eredmény.
A következő aktualizálás előtt (mert gondolom lesz ilyen is), a segédoszlop értékét - a hibák kivételéve - átmásolnám a régi oszlopba. Ezután az új értékek kerülnének az aktualizálásról másolt munkalapra.
Üdv. -
Delila_1
Topikgazda
A régi alá másolod az újat. Mindegyikben az A oszlopban vannak az azonosítók.
Kijelölöd az A oszlop sorait, majd a feltételes formázásnál a Csak az egyedi vagy ismétlődések formázása opciót választod, a Formázás minden-nél pedig az ismétlődőt jelölöd be.Szerk.: míg írtam, megjött a válaszod, hogy nem lehet bennük egyező azonosí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.
-
Delila_1
Topikgazda
Felveszel egy segédoszlopot, ahol összefűzöd a előtte lévő oszlopok adatait.
=A2 & " " & B2 & " " & C2
Nálam 3 oszlop van, a negyedikbe kerül a képlet.
Kijelölöd az első három oszlopot, majd a felt. formázáshoz egyedi képletet viszel be.=DARABTELI($D$2:$D$35;$D2)>1
Persze nem 35-ig lesznek a sorok.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
Vegyük, hogy a telefonok az A oszlopban vannak, A2-től lefelé. Ezek szövegesen vannak eltárolva.
A B2-ben ellenőrizzük a számok elejét.
=VAGY(BAL(A2;4)="0620";BAL(A2;4)="0630";BAL(A2;4)="0670";BAL(A2;5)="+3620")
C2-ben vizsgáljuk a hosszat.
=VAGY(HOSSZ(A2)=11;ÉS(BAL(A2;1)="+";HOSSZ(A2)=12))
Végül D2-ben írjuk ki az eredményt.
=HA(ÉS(B2;C2);"Jó";"Hibá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.
Új hozzászólás Aktív témák
- Luck Dragon: Asszociációs játék. :)
- Otthoni hálózat és internet megosztás
- Plazma TV topic
- Nintendo Switch
- Kerékpárosok, bringások ide!
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- HiFi műszaki szemmel - sztereó hangrendszerek
- Három hónap hajlíthatóval (de most macskák helyett Mazdák)
- Nők, nőügyek (18+)
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- További aktív témák...
- Eladó Steam kulcsok kedvező áron!
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap