-
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 szente #36099 üzenetére
Másold modulba (lásd Téma összefoglaló) a lenti makrót.
Sub Mi_Nincs()
Dim sor As Long, usor As Long, sor1 As Long
Dim WSKis As Worksheet, WSNagy As Worksheet
Set WSKis = Sheets("Kisker")
Set WSNagy = Sheets("Nagyker")
usor = WSNagy.Range("A" & Rows.Count).End(xlUp).Row
sor1 = WSKis.Range("A" & Rows.Count).End(xlUp).Row + 1
For sor = 2 To usor
If Application.WorksheetFunction.CountIf(WSKis.Columns(1), _
WSNagy.Cells(sor, 1)) = 0 Then
WSKis.Cells(sor1, "A") = WSNagy.Cells(sor, 1)
WSKis.Cells(sor1, "B") = WSNagy.Cells(sor, 2)
sor1 = sor1 + 1
End If
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.
-
ny.janos
tag
válasz szente #40048 üzenetére
Szia!
Próbáld meg az itt írtakat.
-
ny.janos
tag
válasz szente #40051 üzenetére
Ezt én is tapasztaltam, mikor próbálkoztam, de számomra (mivel a html kódokban nem vagyok otthon) nem derül ki a csv fájlból, hogy minek hogy kellene kinéznie. Ha leírod / megmutatod minek hogy kellene kinéznie a végeredménynek, gyorsabban van esélyed érdemi válaszra. (Vagy nem ért rá senki más foglalkozni a problémáddal, vagy másokat is elrémisztett a csv fájl kinézete, ahogy részben engem is.)
-
ny.janos
tag
válasz szente #40054 üzenetére
Sajnos nekem túl zavaros (és talán hibákkal tarkított is) a csv fájl, így érdemben nem sokra mentem a próbálkozásaimmal.
A html kódok eltüntetéséhez szerintem lehet azzal próbálkozni, hogy a fájl kiterjesztését átírod html-re, majd megnyitod böngészővel a fájlt, majd azt másolod vissza egy szövegfájlba. De ettől még nem oldódott meg a dolog, mert az egymás melletti oszlopokban szereplő adatokat vessző kellene elválassza egymástól, így viszont egy csomó bekezdésjel (enter) lesz a vessző helyett.
Ennek az adathalmaznak a tisztítása az időkeretet figyelembe véve meghaladja a tudásomat. Persze biztosan ki lehet találni, mit mivel kell cserélni, de ez nekem most nem fér bele.[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz szente #42546 üzenetére
Legegyszerűbben úgy, hogy MEGSZÜNTETED az összevont cellákat. Ehhez csupán 1 plusz oszlop kell a C elé. A címsor állhat 2 sorból, az A és B összevonható az első sorban (ezzel nem dolgozol később), a B2 Csapattag 1, a C2 pedig Csapattag 2.
Többször szerepelt itt a fórumon, hogy bár megengedi az Excel a cellák összevonását, de nem tudja maradéktalanul jól kezelni.
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
válasz szente #42548 üzenetére
Szia!
Szerintem cellaformázással megoldható közel hasonlóra. Természetesen a cella egyesítéseket meg kell szüntetni.
A beállítások - speciálisnál leveszed a rácsvonalak megjelenítését (bár úgy látom ez már most is így van).
A csapatok nevét és ahol egyesített cellád volt beírod mindkét sorba a csapattag neve mellé. Az egyiket láthatatlanná teszed a betűformázással.
A cella szegélyeket úgy alakítod ki, hogy a mostani egyesített cellák közé ne kerüljön semmi.
A képeket hozzá tudod "ragasztani" a bal felső cellához, méretezni pedig a kettő magasságára lehet.
Talán így jobban fog tetszeni.
Üdv.[ Szerkesztve ]
Új hozzászólás Aktív témák
- Autós topik látogatók beszélgetős, offolós topikja
- Kerékpárosok, bringások ide!
- Milyen légkondit a lakásba?
- ThinkPad (NEM IdeaPad)
- sziku69: Fűzzük össze a szavakat :)
- Mibe tegyem a megtakarításaimat?
- Elektromos cigaretta 🔞
- Autós topik
- Háromféle processzor is része lesz a Core 200 sorozatnak
- Milyen okostelefont vegyek?
- További aktív témák...
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Vírusirtó, Antivirus VPN kulcsok
- Windows 10/11 Home/Pro , Office OEM/Retail kulcsok
- Windows 10, 11 Professional, Home, Enterprise licenckulcsok 64, 32 bit - MEGA Akció!
- Windows Server 2016, 2019, 2022 Standard, Datacenter, Essentials termékkulcsok - MEGA akció!
- Vírusirtó, Antivirus, VPN licenckulcsok - kedvezményes ajánlatok (frissítve: 2024. 05. 01.)
- Office Professional Plus 2013, 2016, 2019, 2021 RETAIL licenckulcsok - MEGA Akció!
- Windows 7 Home Premium, Pro, Ultimate és Windows 8, 8.1 Pro licenckulcsok 64, 32 bit - MEGA Akció!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest