crear carpetas usando 2 columnas

1 post / 0 nuevos
doomhammer
Imagen de doomhammer
Offline
última acción: Hace 5 años 3 meses
alta: 09/12/2018 - 12:26
Puntos: 25
crear carpetas usando 2 columnas

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:

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:

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:

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