-
Fototrend
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
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Diabetes - Cukorbetegség
- Videó stream letöltése
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- iOS alkalmazások
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Milyen monitort vegyek?
- A '90-es évek jutnak az eszünkbe az ATK készülő egeréről
- Audi, Cupra, Seat, Skoda, Volkswagen topik
- sziku69: Szólánc.
- További aktív témák...
- Vírusirtó, Antivirus, VPN kulcsok GARANCIÁVAL!
- Eredeti Microsoft termékek - MEGA Akciók! Windows, Office Pro Plus, Project Pro, Visio Pro stb.
- PC Game Pass előfizetés
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- 3DKRAFT.HU - 3D NYOMTATÁS - AZONNALI ÁRAJÁNLAT - GYORS KIVITELEZÉS - 505+ POZITÍV ÉRTÉKELÉS
- Lenovo ThinkPad X13 Gen 2 i5-1145G7 16GB 512GB FHD+ HunVillBill- 1 év garancia
- Samsung Galaxy S21 Ultra 5G 256GB, Kártyafüggetlen, 1 Év Garanciával
- BESZÁMÍTÁS! ASRock B450M R5 3600 8GB DDR4 120GB SSD 1TB HDD GTX 1650 Super 4GB Zalman T3 Plus 400W
- Xiaomi Mi 11 lite 5G NE 256GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
pedig elméletileg ua minden.




Fferi50