- Ha Kínában repülsz, és nem ilyen a hordozható töltőd, elveszik a reptéren!
- AI-ra cserélte a concierge szolgáltatást a Vertu
- Xiaomi 15 Ultra - kamera, telefon
- Bemutatkozott a Motorola vékonymobilja
- iPhone topik
- Megérkeztek a Xiaomi 15T sorozatának telefonjai Magyarországra
- Honor Magic6 Pro - kör közepén számok
- Samsung Galaxy S25 - végre van kicsi!
- Samsung Galaxy Fit 3 - keveset, de jól
- Motorola Edge 50 Neo - az egyensúly gyengesége
-
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
-
sonar
addikt
válasz
Amazonas #3022 üzenetére
Igen tudom,hogy körkörös hivatkozás lenne. Ezért kérdeztem, hogy nincsen e rá vmilyen trükk. Makróval próbálkozom... csak vmilyen apróság mindig megszivat.
Vessző pontos vessző érdekes téma. Az én excelemben csak pontos vessző jó tagolásra, de a kolléga gépe meg csak a vesszőt fogadja el.
pedig elméletileg ua minden.
-
Delila_1
veterán
válasz
Amazonas #2989 üzenetére
Inputboxban kérdezem le a másolandó lap nevét, mert az havonta változni fog.
Sub masol()
lapnev = InputBox("Melyik a lezárt hónap?", "Adatátvitel az új hónap lapjára", Default)
Sheets(lapnev).Select
sor = 2: sor_uj = 2
Do While Cells(sor, 1) <> ""
If Cells(sor, 24) = "" Then
Range(Cells(sor, 1), Cells(sor, 23)).Select
Selection.Copy
ActiveSheet.Next.Select
Cells(sor_uj, 1).Select
ActiveSheet.Paste
sor_uj = sor_uj + 1
ActiveSheet.Previous.Select
End If
sor = sor + 1
Loop
End Sub -
Delila_1
veterán
válasz
Amazonas #2982 üzenetére
Itt egy kis makró, ami a 0-val kezdődő sorokat kitörli. Ha megadod a két lapod nevét, és azt, hogy a januári lapon melyik oszlopban van az állapotot jelző adat, megírom az automatikus másolást.
Sub torles()
sor = 1
Do While Cells(sor, 1) <> ""
Cells(sor, 1).Select
If Cells(sor, 1) = 0 Then
Selection.EntireRow.Delete
Else
sor = sor + 1
End If
Loop
End Sub
Új hozzászólás Aktív témák
- Emelkedik a korábbi generációs Intel CPU-k ára
- ROG Xbox Ally X: Összefogás
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Ha Kínában repülsz, és nem ilyen a hordozható töltőd, elveszik a reptéren!
- Samsung LCD és LED TV-k
- BestBuy topik
- OTP Bank topic
- Projektor topic
- AI-ra cserélte a concierge szolgáltatást a Vertu
- Xiaomi 15 Ultra - kamera, telefon
- További aktív témák...
- Bomba ár! Lenovo ThinkPad L580 - i5-8GEN I 16GB I 256GB SSD I 15,6" FHD I Cam I W11 I Garancia!
- 123 - Lenovo Legion Pro 5 (16ARX8) - AMD Ryzen 7 7745HX, RTX 4070 - 4 év garancia
- Apple iPhone 14 Stílusos megjelenés, megbízható teljesítmény- Használt, karcmentes 3 hónap gari!
- PS Plus előfizetések kedvező áron
- Csere-Beszámítás! Garis! Asus Tuf FX608H Notebook! I5 13450HX / RTX 5050 8GB / 16GB DDR5 / 1TB SSD
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő