-
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
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
- A fociról könnyedén, egy baráti társaságban
- Hardcore café
- Samsung Galaxy Watch6 Classic - tekerd!
- BestBuy topik
- Android alkalmazások - szoftver kibeszélő topik
- Automata kávégépek
- Milyen autót vegyek?
- Samsung Galaxy Felhasználók OFF topicja
- Mibe tegyem a megtakarításaimat?
- Formula-1
- További aktív témák...
- PC Game Pass előfizetés
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem.
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Játékkulcsok ! : PC Steam, EA App, Ubisoft, Windows és egyéb játékok
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- BESZÁMÍTÁS! HP Elitebook 745 G6 14 üzleti notebook - R5 3500U 16GB DDR4 256GB SSD Vega 8 IGP WIN11
- Új és újszerű 15-16 Gamer, irodai, üzleti, készülékek nagyon kedvező alkalmi áron Garanciával!
- G.Skill Aegis 16GB DDR4 3200MHz VADIÚJ, GARANCIÁS!
- Beszámítás! Logitech G920 Driving Force Racing kormány garanciával hibátlan működéssel
- Apple iPhone 13 Pro Max Blue 256GB használt karcmentes 100% akku 6 hónap garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest



Fferi50