Hirdetés
- OneSport OT07 - szevasztok, hollandok!
- 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?
- 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
- One otthoni szolgáltatások (TV, internet, telefon)
- Veszprém és környéke adok-veszek-beszélgetek
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Bambu Lab 3D nyomtatók
- gban: Ingyen kellene, de tegnapra
- Gumi és felni topik
- OneSport OT07 - szevasztok, hollandok!
- Anglia - élmények, tapasztalatok
- Apple asztali gépek
- ThinkPad (NEM IdeaPad)
- További aktív témák...
- Akció! Windows 10 pro OEM licenc kulcs 64/32 bit activation key licensz, liszensz,kulcs
- LG 45GR95QE - 45" Ívelt OLED / 2K WQHD / 240Hz 0.03ms / NVIDIA G-Sync / FreeSync Premium / HDMI 2.1
- Apple iPhone 13 Mini 128GB, Kártyafüggetlen, 1 Év Garanciával
- CJ Jung könyvek egyben eladóak
- Vivo Y76 5G 128GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest