Soy nuevo en el Visual Basic 6 y tengo un problema.
Necesito crear carpetas usando dos columnas, es decir, en cada carpeta me tiene que aparecer el contenido de A1 y F1 separados por un guion bajo, por ejemplo, y así sucesivamente.
Buscando por foros y YouTube he encontrado:
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 están muy bien pero solo sirven para una columna. yo lo que necesito es, partiendo de un ejemplo básico de una hoja de excel:
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... He intentado con cosas random del estilo:
Sub CrearCarpetas2()
ruta = InputBox("INGRESAR RUTA")
Dim fila1 As String, fila2 As String
fila1 = 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. ¿Sugerencias?