Agregar instrucción en macro ya existente
Dante Amor
Mira es que tu me ayudaste con esta macro que te voy a anexar pero ahora necesito que haga una instrucción adicional.
Sub CopiarDatos2()
'Por.Dante Amor
Set h1 = Sheets("Registro_Procedimiento")
Set h2 = Sheets("AC")
u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
h2.Cells(u, "B") = "'682760382901"
h2.Cells(u, "C") = h1.Range("C7")
h2.Cells(u, "D") = h1.Range("C8")
h2.Cells(u, "E") = h1.Range("C13")
h2.Cells(u, "F") = h1.Range("C14")
h2.Cells(u, "J") = "'1"
h2.Cells(u, "K") = "'48100"
MsgBox "Registro copiado"
End SubLo que ahora necesito Dante es que en la Columna "K" ponga un valor de tipo texto como esta actualmente pero dependiendo de lo contenido en la columna "F" que es lo que proviene de la celda "C14" como te puedes dar cuenta.
¿Y cómo seria? De la siguiente manera:
Si en la celda "C14" el valor contenido en ella es 890202 poner en la columna "K" lo actual es decir "'48100"
Pero si lo contenido en la celda "C14" es 890302 poner en la columna "K" el siguiente valor como texto "'32450"
1 Respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro actualizada:
Sub CopiarDatos2()
'Por.Dante Amor
Set h1 = Sheets("Registro_Procedimiento")
Set h2 = Sheets("AC")
u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1
h2.Cells(u, "B") = "'682760382901"
h2.Cells(u, "C") = h1.Range("C7")
h2.Cells(u, "D") = h1.Range("C8")
h2.Cells(u, "E") = h1.Range("C13")
h2.Cells(u, "F") = h1.Range("C14")
h2.Cells(u, "J") = "'1"
If h1.Range("C14") = 890202 Then
h2.Cells(u, "K") = "'48100"
ElseIf h1.Range("C14") = 890302 Then
h2.Cells(u, "K") = "'32450"
End If
MsgBox "Registro copiado"
End Sub‘
