Hozzászólások
-
Míg Imre előkerül, és megmondja, miért nem jó ez:
Sub Masolasok() Dim tomb(2, 15), utvonal As String, FN As String, sorszam As Integer Dim WB As Workbook 'első mappa fájlnevek feltöltése a tomb() tömbbe utvonal = "F:\első mappa\" FN = Dir(utvonal & "*.xlsx", vbNormal) Do While FN <> "" sorszam = sorszam + 1 tomb(1, sorszam) = FN FN = Dir() Loop 'második mappa fájlnevek feltöltése a tomb() tömbbe utvonal = "F:\második mappa\": sorszam = 0 FN = Dir(utvonal & "*.xlsx", vbNormal) Do While FN <> "" sorszam = sorszam + 1 tomb(2, sorszam) = FN FN = Dir() Loop 'másolások For sorszam = 1 To 15 Workbooks.Open "F:\első mappa\" & tomb(1, sorszam) Set WB = ActiveWorkbook Workbooks.Open "F:\második mappa\" & tomb(2, sorszam) Sheets(4).Copy After:=WB.Sheets(3) ActiveWorkbook.Save ActiveWorkbook.Close ActiveWorkbook.Close Next End SubEsetleg ott lehet majd gond, hogy nem biztos, hogy az 1. mappa 1. fájljához kell a 2. mappa 1. fájl utolsó lapja. Lehet, hogy valami szerint (név, mentési idő) párba kell rendezni a fájlokat a másolások elindítása előtt.
Az utvonal változók értékét írd át a saját 2 útvonaladra, minden előfordulásukkor a makró futtatása előtt.Több dolog ismeretlen. Vegyük, hogy 1 lap bizonyos sorait, oszlopait láthatják a különböző felhasználók a saját gépükön. Ilyenkor a username ismeretére van szükség.
A lapon elrejted a sorokat és oszlopokat. Csak az maradjon látható, amit 1 bizonyos felhasználó láthat. Nézet menü, Munkafüzetnézetek, Egyéni nézetek, Hozzáadás. Nevet adsz a nézetnek. Ezt pl. Kiss Jóska láthatja.
Nagy Piroskához újabb nézetet adsz meg az fenti minta szerint. A saját nevedhez legyen minden látható.
Mikor minden nézetet bevittél, levéded a lapot.A ThisWorkbook-ba beírod a makrót.
Private Sub Workbook_Open() Dim nev As String, csoport As String Sheets(1).Select ActiveSheet.Unprotect Password:="Jelszó" nev = Environ("username") Select Case nev Case "Kiss Jóska" csoport = "Csoport_1" Case "Nagy Piroska" csoport = "Csoport_2" Case "Saját nevem" csoport = "Mind" End Select ActiveWorkbook.CustomViews(csoport).Show ActiveSheet.Protect Password:="Jelszó" End SubSzerk: ez megint nagyon csúf lett, pedig a makrót a code kiválasztása után másoltam be. Hogy lehet úgy írni, hogy a tagolás megmaradjon?
Mi a kérdés? Esetleg, hogy mit kell tenned annak érdekében, hogy a szűrt sorok mindegyikében ezek a számok legyenek a C:F tartományban? Írd be a szűrt sorokba!
Ha az a kérdés, hogy bármelyik értékre történő szűrés esetén csak ez az öt számjegy legyen látható, akkor a C2:F20 tartományt úgy kell kitöltened, ahogy az 5. sorban látod.
Így oldanám meg (Horvimiétől kicsit eltérő módon):
Sub Beszuras() Dim sor As Long, kezd As Long, f As Boolean sor = 1: f = False Do While Cells(sor, 1) > "" If Not f Then kezd = sor: f = True End If If Cells(sor + 1, 1) <> Cells(sor, 1) Then Rows(sor + 1).EntireRow.Insert Cells(sor + 1, 1) = "Összesen:" Cells(sor + 1, 2) = "=sum(B" & kezd & ":B" & sor & ")" Range(Cells(sor + 1, 1), Cells(sor + 1, 2)).Font.Bold = True sor = sor + 2 f = False Else sor = sor + 1 End If Loop End Sub
