Hirdetés
- iPhone topik
- MWC 2025: A kicsi és a kamerás - megjött a Xiaomi 15 és az Ultra
- Honor Magic7 Pro - kifinomult, költséges képalkotás
- Mobil flották
- Bemutatkozott a Poco X7 és X7 Pro
- Samsung Galaxy S23 Ultra - non plus ultra
- One mobilszolgáltatások
- Milyen okostelefont vegyek?
- OneSport OT07 - szevasztok, hollandok!
- Samsung Galaxy A70 - áram, erősség
-
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
-
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.
-
Delila_1
veterán
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 Sub
Új hozzászólás Aktív témák
- Apple iPhone 7 32GB, Kártyafüggetlen, 1 Év Garanciával
- LG 55G4 - 55" OLED evo - 4K 144Hz & 0.1ms - MLA Plus - 3000 Nits - NVIDIA G-Sync - FreeSync Premium
- Telefon felvásárlás!! Apple Watch Series 9/Apple Watch Ultra/Apple Watch Ultra 2
- ASUS 18W USB ADAPTER
- Xiaomi Redmi 7 32GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest