"Escribir Identificación en C7 y Agregar todos datos de esa identificación"
Espero te encuentres de muy buen humor y salud sobre-todo.
Según el libro que acabo de enviarte, en la hoja INF tengo 2 puntos, quisiera solventarlos uno a uno, pues tema por tema je je.
Esperare tu respuesta, sin prisas ni carreras. Sobre el tema que me refieres en el mail, voy a crearlo con alguna modificación "Corrección en código de macro en Excel" para que se pueda identificar no igual al anterior.
No recuerdo ahora, de que tema se refería pero, ahí está
1 Respuesta
Te anexo la parte para validar el dato de la celda C7
Case Range("C7").Address
'Por.DAM
If InStr(1, [C7], "-") Then
datos = Split([C7], "-")
cliente = datos(1)
Else
cliente = [C7]
End If
Set b = HojaClientes.Range("A:A").Find(cliente, lookat:=xlPart)
If Not b Is Nothing Then
[C7].Interior.ColorIndex = 33
Range("C8").Formula = "=IF(ISERROR(INDEX(DatosClientes,MATCH(R[-1]C,Codigocliente,0),1)),"""",INDEX(DatosClientes,MATCH(R[-1]C,Codigocliente,0),1))"
Range("C8") = Range("C8")
Range("C9").Formula = "=IF(ISERROR(INDEX(DatosClientes,MATCH(R[-2]C,Codigocliente,0),2)),"""",INDEX(DatosClientes,MATCH(R[-2]C,Codigocliente,0),2))"
Range("C9") = Range("C9")
Range("B10").Formula = "=IF(ISERROR(INDEX(DatosClientes,MATCH(R[-3]C[1],Codigocliente,0),3)),"""",INDEX(DatosClientes,MATCH(R[-3]C[1],Codigocliente,0),3))"
Range("B10") = Range("B10")
Range("C11").Formula = "=IF(ISERROR(INDEX(DatosClientes,MATCH(R[-4]C,Codigocliente,0),4)),"""",INDEX(DatosClientes,MATCH(R[-4]C,Codigocliente,0),4))"
Range("C11") = Range("C11")
Range("D11").Formula = "=IF(ISERROR(INDEX(DatosClientes,MATCH(R[-4]C[-1],Codigocliente,0),5)),"""",INDEX(DatosClientes,MATCH(R[-4]C[-1],Codigocliente,0),5))"
Range("D11") = Range("D11")
Range("E11") = Date
Range("F11") = Time
Else
MsgBox "NO EXISTE"
[C8].Select
End If
'Por. DAM
Detalle:
1º- Eliminemos el color, me quedo SOLO con el mensaje de que NO Existe
' [C7].Interior.ColorIndex = 33
Podrias explicvarme sobre esto?
If InStr(1, [C7], "-") Then datos = Split([C7], "-") cliente = datos(1) Else
Será para que el guion se AUTO coloque? no creo pero
después de la clarificación, califico para pasa ral punto 2 y nueva pregunta
Salu2 DAM
La instrucción Instr revisa si hay unn guión en la celda C7
Si existe el guión, se almacena en "datos" el contenido de la celda pero sin guiones, la variable datos es un arregla de datos, es como si almacenara en una celda cada texto
Si en la celda C7 tienes esto:
a-123456-d
Entonces en datos tengo 3 registros, los registros se almacenar en la variable dato empezando con el número 0.
dato(0) = a
dato(1) = 123456
dato(2) = d
Después tomo el segundo dato de esos 3 registros
clientes = dato(1)
Esta explicación bien valdría una pregunta aparte.
