-
IT café
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
-
tgumis
tag
sziasztok
Ismét makró összefűzéssel kapcsolatos problémába ütköztem
adott két makró:
1.(ezzel másolok a bevitel munkalapról)Sub D2_T_szurt_taromany_masol()
'
' munkalap védettség feloldás
Sheets("bevitel").Unprotect Password:="pw"
' szűrés
Sheets("bevitel").Range("D2").Activate
Sheets("bevitel").ListObjects("bevitel").Range.AutoFilter Field:=17, Criteria1:="=OK", Operator:=xlAnd
usor = Range("D2").End(xlDown).Row
' munkalap védetté tétele
Sheets("bevitel").Protect Password:="pw", UserInterfaceOnly:=True, AllowFiltering:=True, AllowFormattingColumns:=True
' másolás
Range("D2:T" & usor).Select
Selection.Copy
End Sub2. ezzel illesztem be az előző makróval kimásolt tartományt de egy másik munkalapra aminek a neve összesítés ÖSSZESÍTÉS
Sub beilleszt()
Dim Bsor As Long
Dim Csor As Long
Dim i As Integer
Bsor = Range("B" & Rows.Count).End(xlUp).Row + 1
Range("C" & Bsor).PasteSpecial xlPasteValues
Csor = Range("C" & Rows.Count).End(xlUp).Row + 1
Range("T2:W2").Copy Destination:=Range("T" & Bsor & ":T" & Csor - 1)
For i = Bsor To Csor - 1
Range("B" & i) = Range("B" & i - 1) + 1
Next i
With Range("B1").CurrentRegion
.BorderAround LineStyle:=xlContinuous, Weight:=xlThin
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlThin
End With
End SubSzóval a bevitel munkalapon állva indítanám a makrót és neki automatikusan át kellene rakni az összesítés munkalapra az egészet. plusz ráadásnak még szeretném a végén mindegyik munkalapot visszakódolni és a bevitelnél a törlést alkalmazni egy tartományban amire már kész a makró:
Sub bevitel_torol()
' bevitel munkalapon törlés Makró
' munkalap védettség feloldás
Sheets("bevitel").Unprotect Password:="pw"
' szűrés kikapcsolása
Sheets("bevitel").ListObjects("bevitel").Range.AutoFilter Field:=17
' munkalap kijelölt celláiból érték törlése majd visszaállás az A2
Range("D2:E200,G2:G200,H2:I200").Select
Range("H2").Activate
Range("D2:E200,G2:G200,H2:I200,B1:B6").Select
Range("B1").Activate
Selection.ClearContents
Selection.ClearContents
' munkalap védetté tétele
Sheets("bevitel").Protect Password:="LiliLufi140127", UserInterfaceOnly:=True, AllowFiltering:=True, AllowFormattingColumns:=True
End Subösszegezve:
tartomány szűrése másolásra majd átugrás másik munkalapra ott beillesztés keretezés majd visszaugrás a bevitel munkalapra és ott törlés. Majd minden munkalapot lekódolok. ha lehet munkalaponként kódolást szeretnék nem egyben a munkafüzetet.
Új hozzászólás Aktív témák
- Kamionok, fuvarozás, logisztika topik
- Kerékpárosok, bringások ide!
- Milyen autót vegyek?
- Linksys WRT54G/GL/GS router
- Androidos tablet topic
- PlayStation 5
- 14 GB/s-mal olvasó, DRAM-os SSD az ADATA palettájáról
- Luck Dragon: Asszociációs játék. :)
- Házimozi belépő szinten
- Ingatlanos topic!
- További aktív témák...
- Huawei MediaPad T5 32GB, Kártyafüggetlen, 1 Év Garanciával
- Honor Magic 7 Pro 512GB / 12GB RAM / Fekete / Független / Újszerű állapot / 3 év gyári garanciával!
- Apple IPhone 13 Pro Max 256GB,Újszerű,Dobozával,12 hónap garanciával
- ASUS TUF Gaming B760M-E D4 DDR4 alaplap bontatlan csomagolásban 3 év garancia 27% áfa
- Bomba ár! HP ProBook 6560B - i5-2GEN I 8GB I 480GB SSD I 15,6" HD I Cam I W10 I Garancia!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopszaki Kft.
Város: Budapest