PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBAKnapp som skapar en mapp & en .txt i mappenKnapp som skapar en mapp & en .txt i mappen
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2015-05-20 13:30
 
 Ändrad av Mikael Sundström  på 2015-05-20 13:41:56
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?
Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBAKnapp som skapar en mapp & en .txt i mappenKnapp som skapar en mapp & en .txt i mappen

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter