- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Milyen okostelefont vegyek?
- Telekom mobilszolgáltatások
- Samsung Galaxy S23 Ultra - non plus ultra
- Honor 200 Pro - mobilportré
- iPhone topik
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Garmin Instinct – küldetés teljesítve
- Érintésnélküli fizetési megoldások - PayPass via NFC
- Poco X6 Pro - ötös alá
Hirdetés
-
Demót kapott a Steel Seed (PC)
gp A Steam Next Fest keretén belül bárki kipróbálhatj a készülő játékot.
-
Computex 2024: jóvágású Gigabyte alaplap Threadripperek alá
ph A 2 TB memóriát kezelő modell nem csupán a szemnek kellemes, és USB4 Type-C-ből, 10 GbE LAN-ból, illetve hangkodekből egyaránt kettő van rajta.
-
MediaTek lapkával érkezhet a következő Samsung csúcstablet
ma Merőben szokatlan lenne, ha a Samsung nem Qualcomm vagy Exynos szettet használna a prémium termékvonalon, de a Geekbench szerint mégis ez lehet a helyzet a Tab S10+ esetében.
-
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
-
Delila_1
Topikgazda
válasz Sziszmisz #15384 üzenetére
Ezért érdemes azonnal az adatok pontos helyét megadni. Az eredeti kérdésben 4 oszlop szerepelt, ahol a szétválasztandó színek a D oszlopban voltak. Így most kétszer kellett megírni a makrót.
Sub Szetvalaszt()
Dim sor%, szin$, vesszo%
sor% = 2
Do While Cells(sor%, 1) > ""
szin$ = Cells(sor%, 13)
vesszo = InStr(szin$, ",")
If vesszo Then
Range("A" & sor% + 1).EntireRow.Insert
Range(Cells(sor%, 1), Cells(sor%, 12)).Copy Cells(sor% + 1, 1)
Range(Cells(sor%, 14), Cells(sor%, 16)).Copy Cells(sor% + 1, 14)
Cells(sor%, 13) = Left(szin$, vesszo - 1)
Cells(sor% + 1, 13) = Right(szin$, Len(szin$) - vesszo - 1)
End If
sor% = sor% + 1
Loop
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.
Új hozzászólás Aktív témák
- Politika
- Luck Dragon: Asszociációs játék. :)
- Kompakt vízhűtés
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- sziku69: Fűzzük össze a szavakat :)
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Apple notebookok
- Demót kapott a Steel Seed (PC)
- Luck Dragon: MárkaLánc
- OTP Bank topic
- További aktív témák...
- Megmaradt - Eredeti Humble, Choice - Steam kulcsok
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- 10 Darab PC Játék (Bontatlanul!) Egyben 6990Ft.-ért Foxal!!!
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Canva Pro előfizetés - 1 éves