-
GAMEPOD.hu
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 Hauptmann #19903 üzenetére
Próbáld így:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Cells(1).Select: Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End If
End SubA helyedben nem az első oszlopba történő beíráshoz rendelném a rendezést, hanem az utolsóhoz, ami az esetedben a hatodik (F). Még azt is beletenném, hogy a következő sor elejére ugorjon a fókusz.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
'Rendezés
Cells(1).Select: Selection.CurrentRegion.Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'Első üres sor A oszlopába állás
Range("A" & WorksheetFunction.CountA(Columns(1)) + 1).Select
End If
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
- Autós topik látogatók beszélgetős, offolós topikja
- Viccrovat
- EAFC 24
- Milyen TV-t vegyek?
- Hardcore café
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Fallout 76
- Samsung Galaxy S23 Ultra - non plus ultra
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Fejhallgató erősítő és DAC topik
- További aktív témák...
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
- Microsoft Office 2019 Otthoni és vállalati verzió (PC / MAC)
- Windows 10 Home magyar, bontatlan csomagok
- Microsoft Windows Vista Business + Office Business 2007
- Régi PC Játékok - Rome Total War/Barbarian Invasion/SpellForce/Simcity 4
- Steam kulcsok: Amnesia: The Bunker / My Friendly Neighborhood / Ad Infinitum
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest