Hejsan! Jag vill ha hjälp med en sak.
Det jag vill är att koppla en knapp till ett makro: När jag markerar en rad så ska en mapp skapas med data som finns i kolumn A på den raden. Sen så ska en txt-fil skapas med data från alla markerade celler på den raden. Resultatet jag söker: är att jag vill ha den skapade filen i den skapade mappen.
Den här hittade jag på internet: Den skapar mapp(ar) av markerade celler med MkDir som jag vill ha det.
Sub MakeFolders() Dim Rng As Range Dim maxRows, maxCols, r, c As Integer Set Rng = Selection maxRows = Rng.Rows.Count maxCols = Rng.Columns.Count For c = 1 To maxCols r = 1 Do While r <= maxRows If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then MkDir (ActiveWorkbook.Path & "\" & Rng(r, c)) On Error Resume Next End If r = r + 1 Loop Next c End Sub
Det jag vill veta först är: Om jag markerar en rad så ska det bara skapas en mapp från cellen i kolumn A på den raden. Hur berättar man det för VBA-koden?
|
|