Crear Carpetas usando 2 columnas
Publicado por Raul (1 intervención) el 09/12/2018 13:09:59
Buenas tardes.
Soy nuevo en el Visual Basic y tengo un problema.
necesito crear carpetas usando dos columnas, es decir, en cada carpeta me tiene que aparecer el contenido de A1_F1, y asi sucesivamente.
Buscando por foros y youtube he encontrado:
y similares, que estan muy bien pero solo sirven para una columna, yo lo que necesito es, partiendo de un ejemplo basico de una hoja de excel:
quiero crear carpetas con el contenido de A2_C2, A3_C3, etc.
haber si alguien me ayuda porque no soy capaz de hacerlo. He intentado con cosas random del estilo:
pero se crea una carpeta con valores verdadero_verdadero
Soy nuevo en el Visual Basic y tengo un problema.
necesito crear carpetas usando dos columnas, es decir, en cada carpeta me tiene que aparecer el contenido de A1_F1, y asi sucesivamente.
Buscando por foros y youtube he encontrado:
1
2
3
4
5
6
7
8
Sub CrearCarpetas()
ruta = InputBox("INGRESAR LA RUTA")
Range("A2").Select
Do While ActiveCell.Value <> ""
MkDir (ruta & "/" & ActiveCell.Value)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
y similares, que estan muy bien pero solo sirven para una columna, yo lo que necesito es, partiendo de un ejemplo basico de una hoja de excel:
1
2
3
4
5
nombre apellido otros
1 a mm
2 s nn
3 d pp
4 f kk
quiero crear carpetas con el contenido de A2_C2, A3_C3, etc.
haber si alguien me ayuda porque no soy capaz de hacerlo. He intentado con cosas random del estilo:
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CrearCarpetas2()
ruta = InputBox("INGRESAR RUTA")
Dim fila1 As String, fila2 As Stringfila1 = Range("A2").Select
fila2 = Range("C2").Select
If Dir(fila1 & fila2) = Empty Then
MkDir (ruta & "/" & fila1 & "_" & fila2)
End If
End Sub
pero se crea una carpeta con valores verdadero_verdadero
Valora esta pregunta
0