-
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
- LG 48B4 - 48" OLED - 4K 120Hz 1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - PS5 és Xbox Ready
- Frederick Forsythe: Isten ökle (nem olvasott)
- Bomba ár! HP ProBook 430 G5 - i3-7GEN I 4GB I 128GB SSD I HDMI I 13,3" FHD I Cam I W11 I Garancia!
- BESZÁMÍTÁS! HUAWEI MateBook 14 üzleti notebook - i5 1135G7 16GB DDR4 512GB SSD Intel Iris Xe IGP W11
- GYÖNYÖRŰ iPhone 14 Pro Max 128GB Deep Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3716
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest



Fferi50
