Hola amigos foreros tengo este codigo el cual me funciona bien para una sola celda en excel lo que hace es que en la celda a1 tengo responsables puede haber desde 1 hasta 10 por celda y en la celda b1 los compromisos de los responsables
lo que hace el codigo es que los separa para que se peuda hacer un filtrado por responsable de los compromisos ahora en el siguiente codigo
Código:
Sub separanombres()
Dim nombres() As String
Dim arreglonombre(100,10) As String
Dim compromiso() As String
Dim i As Integer
Range("A1").Select
Range("B1").Select
nombres = Range("a1")
compromisos = Range("B1")
arreglonombre = Split(nombres, ",")
For i = LBound(arreglonombre) To UBound(arreglonombre)
Range("C" & i + 1).Value = arreglonombre(i)
Range("D" & i + 1).Value = compromisos
'MsgBox "responsable " & i + 1 & arreglonombre(i)
Next i
End Sub
Código:
Sub separanombres()
Dim nombres() As String
Dim arreglonombre(100, 10) As String
Dim compromiso() As String
Dim i As Integer
Dim x As Integer
'Active.Cells ("a1")
Range("A1").Select
Range("B1").Select
For x = 1 To 7
nombres(x - 0) = Range("a" & x)
compromiso(x - 0) = Range("B" & x)
' aqui asigno alos arreglos las diferentes posiciones de el arreglo nombre y en
' la misma posicion agrego los compromisos lo hice hasta 7 para hacer una prueba
Next x
For x = 0 To 6
arreglonombre(x, 1) = Split(nombres(x), ",")
' ahora mi problema es aqui porque no se como pasarle parametro para que en la posicion x se incremente la posicion y porque en el otro cuando era un vector lo hacia automatico tengo que poner un contador para la posicion y en split(nombres(x) esta bien o lo debo dejar sin la variable contador gracias aprecio todos los comentarios
Next x
'arreglonombre = Split(nombres, ",")
For i = LBound(arreglonombre) To UBound(arreglonombre)
Range("C" & i + 1).Value = arreglonombre(i)
Range("D" & i + 1).Value = compromisos
'MsgBox "responsable " & i + 1 & arreglonombre(i)
Next i
End Sub