- Samsung Galaxy Z Fold5 - toldozás-foldozás
- OnePlus Nord 2 5G - észak-északkelet
- Huawei Watch GT 4 - kerek karék
- Így nézhet ki a tömzsi Xperia 1 VI
- Samsung Galaxy Watch Active 2 - láthatatlan gyűrű
- Honor Magic V2 - origami
- Motorola Edge 40 - jó bőr
- Google Pixel 6/7/8 topik
- Ezek a OnePlus 12 és 12R európai árai
- Samsung Galaxy S23 Ultra - non plus ultra
Hirdetés
-
SGF24 - Remekül fest a Phantom Blade Zero
gp A Summer Game Fest utolsó játéka nem más volt mint a PC-re és PS5-re készülő játék, amelyhez még mindig nem kaptunk megjelenési dátumot.
-
10 éve nem változott ekkorát a Netflix tévés appja
it A Netflix útnak indította a megújult tévés appját, amely az első nagy felújítást jelenti az utóbbi 10 évben.
-
Computex 2024: monstrumhűtő a DeepCoolnál (videóval!)
ph Az Assassin IV széria legújabb verziója egy vapor chamber talpat kapott, így már 300 wattig használható.
-
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 littleNorbi #39494 üzenetére
Másold a lap moduljába a makrót.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lapnev, ide As Long
If Target.Column = 4 And Target.Value <> "" And Target.Count = 1 Then
On Error Resume Next
Set lapnev = Sheets(Target.Value)
If Err.Number <> 0 Then
MsgBox "Nincs " & Target & " nevű lap", vbCritical
On Error GoTo 0
Exit Sub
End If
ide = Sheets(lapnev).Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & Target.Row & ":D" & Target.Row).Copy Sheets(lapnev).Cells(ide, 1)
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.
-
ny.janos
tag
válasz littleNorbi #39494 üzenetére
Néha azért a kérést megfogalmazónak nem árt óvatosan elmondani, hogy amit kér, arra létezik egy másik lehetséges megoldás is, ami neki jobb, mint amit ő megfogalmazott.
Nehezen tudom elképzelni, hogy bárki is kérte így, kényelmes lesz neki, ha a táblázatban 40 település lesz, s ezáltal 40 plusz fül. Szerintem nem használná mind. Én is azt mondom, hogy autoszűrő, annyival kiegészítve, hogy a leggyakrabban használt szűrési feltételekre egyéni nézeteket hoznék létre. Így talán létrejöhet a kecske és káposzta is esete.
Új hozzászólás Aktív témák
- Új, bontatlan World of Warcraft gyűjtői kiadások
- Windows, Office licencek a legolcsóbban, egyenesen a Microsoft-tól - 2990 Ft-tól!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Vírusirtó, Antivirus VPN kulcsok
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen