- Apple AirPods Pro (2. generáció) - csiszolt almaságok
- Fotók, videók mobillal
- Karaktere biztos lesz az első Nothing fejhallgatónak
- Xiaomi 13 - felnőni nehéz
- Apple iPhone 16 Pro - rutinvizsga
- Az Oppo Find X8 Ultra lett a legvékonyabb kameramobil
- iPhone topik
- One mobilszolgáltatások
- Samsung Galaxy S21 és S21+ - húszra akartak lapot húzni
- 45 wattos vezeték nélküli töltés jön az új iPhone-ba
-
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
veterán
válasz
LordVader80 #24339 üzenetére
Eltolás helyett Ofszet-et írj. Az eltolás függvényt a 2010-es verzióban vezették be.
-
Fferi50
Topikgazda
válasz
LordVader80 #24337 üzenetére
Szia!
Az A1 képlete maradjon az, amit írtál.
B1-től a képlet: =ELTOLÁS($A$1;2;(OSZLOP()-1)*3;1;1)Üdv.
-
Wyll
őstag
válasz
LordVader80 #24284 üzenetére
Pont így gondoltam én is! Örülök, hogy sikerült!
-
Mutt
senior tag
válasz
LordVader80 #24269 üzenetére
Felteteles formazasban a fuggveny =párose(A1/4)
-
m.zmrzlina
senior tag
válasz
LordVader80 #24267 üzenetére
Akkor szerintem nem úszod meg.
Feltételes formázás >Cellakijelölési szabályok>Két érték között
Itt megadod a határértékeket és a határokhoz tartozó stílusokat.
-
Delila_1
veterán
válasz
LordVader80 #24269 üzenetére
Szívesen.
Gyorsan megy a másolásos módszerrel, egy-kettőre bevittem 10 feltételt. -
Delila_1
veterán
válasz
LordVader80 #24264 üzenetére
-
m.zmrzlina
senior tag
válasz
LordVader80 #24264 üzenetére
Ha folyamatos a táblázatod (egyenként növekednek a számok) ahogy a kérdésben írod akkor nem kell feltételes formázással bajlódnod.
Formázás táblázatként>Új táblázatstílus előhozza a képen lévő ablakot és itt beállíthatod a kívánt stílust.
Az első és második sorsávnál 4-re állítod a sávméretet a formátumnál megadod a színt.Aztán kijelölöd a táblázatodat majd Formázás táblázatként és a legfelső sorban az Egyéni közt ott lesz az előbb létrehozott stílusod.
Ez a megoldás nem lesz tekintettel a cellaértékekre mint a feltételes formázás.
-
Delila_1
veterán
válasz
LordVader80 #22021 üzenetére
Szívesen.
-
Delila_1
veterán
válasz
LordVader80 #22019 üzenetére
Most már csak a kibővített feltételt írom be.
If CV > "" Then
CV.Copy
Sheets("Munka2").Range("A" & sor).PasteSpecial xlFormats
Sheets("Munka2").Range("A" & sor).PasteSpecial xlValues
sor = sor + 1
End If -
Delila_1
veterán
válasz
LordVader80 #22015 üzenetére
Kiegészítve az üres cellák másolásának elhagyásával:
Sub Egymas_ala()
Dim ter As String, CV As Object, sor As Long
Range("A1").Select '*
ter = Selection.CurrentRegion.Address
sor = 1
For Each CV In Range(ter)
If CV > "" Then
Sheets("Munka2").Range("A" & sor) = CV.Value '**
sor = sor + 1
End If
Next
End Sub -
Delila_1
veterán
válasz
LordVader80 #22011 üzenetére
Az eredeti lapon lévő, A1 cellában kezdődő táblázat adatait másolja a makró a Munka2 lapra abban a sorrendben, ahogy írtad.
Két helyen kell módosítanod a makróban, ahol megjelöltem.
'* ha nem az A1-ben kezdődik a táblázatod, '** ha nem Munka2 a másolat lap neve.Sub Egymas_ala()
Dim ter As String, CV As Object, sor As Long
Range("A1").Select '*
ter = Selection.CurrentRegion.Address
sor = 1
For Each CV In Range(ter)
Sheets("Munka2").Range("A" & sor) = CV.Value '**
sor = sor + 1
Next
End Sub -
LordVader80
őstag
válasz
LordVader80 #20968 üzenetére
Megvan, felcseréltem az értéket és az érték ha hibát, ezért nem működött
-
Gandalf80
csendes tag
válasz
LordVader80 #20966 üzenetére
Szia!
Használd a HAHIBA függvényt! Olvasd el a súgóban, amit erről írnak.
Üdv.
Gábor -
Delila_1
veterán
válasz
LordVader80 #20931 üzenetére
Szívesen.
-
Delila_1
veterán
válasz
LordVader80 #20928 üzenetére
Az FKERES függvényt alkalmazd.
-
Delila_1
veterán
válasz
LordVader80 #20105 üzenetére
Rendezettségre nem lehet az egyéni nézetet alkalmazni, de pl. sorok, oszlopok elrejtésére, felfedésére, nyomtatási terület módosítására kiválóan alkalmas.
Új hozzászólás Aktív témák
Hirdetés
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Kaspersky, McAfee, Norton, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7700X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Nvidia Quadro P400/ P600/ P620/ P1000/ T400/ T600/ T1000 - Low profile (LP) + RTX A2000 6/12Gb
- ÁRGARANCIA!Épített KomPhone Ryzen 7 7800X3D 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- 100 - Lenovo Yoga Pro 9 (16IRP8) - Intel Core i9-13905H, RTX 4070 (ELKELT)
- BESZÁMÍTÁS! MSI B450 TomaHawk R5 3600 16GB DDR4 512GB SSD RX5500 XT 8GB Rampage SHIVA TT 530W
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest