Buen dia requiero de apoyo

lo que pretendo hacer es generar un código basado e dos celdas

teniendo por ejemplo

A1 China y B1 478

quiero que si el nombre en A1 es china en la celda C1 apaesca [China, (valor de B1)],

respetando los paréntesis y la ultima coma el resultado final seria [China, 478],

agradeceré cualquier ayuda

saludos

Buen dia requiero de apoyo

lo que pretendo hacer es generar un código basado e dos celdas

teniendo por ejemplo

A1 China y B1 478

quiero que si el nombre en A1 es china en la celda C1 apaesca [China, (valor de B1)],

respetando los paréntesis y la ultima coma el resultado final seria [China, 478],

agradeceré cualquier ayuda

saludos

Buenas noches intenta colocando en la celda C1 la siguiente formula =SI(A1="China";"["&A1&","&B1&"]";"")

- - - - - Mensaje combinado - - - - -

Buena noches

y si lo que quieres es una macro intenta con esta

Sub Concatena()

If Sheets("Hoja1").Range("a1") = "China" Then

Sheets("Hoja1").Range("C1") = "[" & Sheets("Hoja1").Range("a1") & "," & Sheets("Hoja1").Range("b1") & "]"

End If

End Sub

Saludos:encouragement:

excelente muchisimas gracias funciono a la perfeccion, aprovechando con el mismo si tuviera todo un listado en la celda A1 hasta la A100 como podria verificarlo para todas tendría que poner sheets("hoja1").Range("A1:A100)= ???

saludos

Si usas la formula puedes llenar el rango completo con un doble clic en la parte inferior de la celda donde tengas la fomula.

Otra forma de aplicar la formula en un rango:

Seleccionar celdas o rangos específicos - Excel - Office.com

Si enciendes la grabadora y aplicas el procedimiento anterior, obtendras el codigo.

En principio parece que puedes prescindir de Sheets("Hoja1") o bien sustituirlo con With Sheets("Hoja1") para escribir menos.

Solo viendo tu archivo podria asegurarlo.

Sobre la grabadora:

Mi primer macro en excel : Hojas de cálculo Excel

Buenas tardes

Estimado Kamileo1 si requieres la macro para un rango de A1 a A100 se sugiero el siguiente código

Sub concatena()

Dim cl As Object

For Each cl In Sheets("Hoja1").Range("a1 : A100")

If cl.Value = "China" Then

cl.Offset(0, 3) = "[" & cl.Value & "," & cl.Offset(0, 1) & "]"

End If

cl.Select

Next

End Sub

Espero te sirva , Saludos

Usando el metodo del link sugerido puedes hacerlo, con VBA seria algo asi:

Sub Macro1()

    [C1:C100].Formula = "=IF(A1=""China"",""[""&A1&"", ""&""B1""" & """],"","""")"

    Range("C1").Select

End Sub[/CODE]