Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Adicionar Columnas

12/11/2009 - 19:13 por jforero | Informe spam
Ayuda Hacer una pregunta
Buenas tardes grupo, deseo realizar los siguiente:

en la hoja Formulario en la celda:
e16 tengo el numero de cotizacion
c20 la fecha
b22 la nota y/o observaciones

en la hoja Cotizaciones en la:

Columna E tengo el numero de cotizacion
Columna K el ultimo dato almacenado

entonces lo que necesito si es posible es que al darle click al boton
btnActualizar (insertado en la hoja formulario) con el numero de cotizacion
de la hoja formulario, me adicione la columna L con la fecha almacenada en
la hoja formulario celda c20 y en la columna M las observaciones.

si se realiza esta operacion para el mismo numero de cotizacion, me adicione
las columnas N y O respectivamente y asi sucesivamente.
y de ser posible que me titule las columnas insertadas:

La de la fecha: "Fecha " n ,donde n sera 1 para la primera observacion y 2
para la segunda (en negrilla y centrado)
la de la observacion con "Notas y observaciones " n, donde n sera 1 para la
primera observacion y 2 para la segunda (en negrilla y centrado)
y asi sucesivamente

gracias por la colaboración

Jorge f
email Siga el debateRespuesta 6 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
13/11/2009 - 00:16 | Informe spam
hola, jorge !

prueba asignando al boton que tienes incrustado en "formulario" una macro +/- como la siguiente:
(OJO: no contempla la prevencion/correccion/... de -posibles- errores)

Sub Anotaciones()
Dim Fila As Integer, Col As Byte, uCol As Byte
With Worksheets("cotizaciones")
Fila = .Columns("a").Cells.Find([e16], .[a1]).Row
Col = Application.Max(12, .Range("iv" & Fila).End(xlToLeft).Column + 1)
uCol = 12: On Error Resume Next
uCol = .Cells.Find("*", .[a1], xlValues, xlWhole, xlByColumns, xlPrevious).EntireColumn
.Cells(Fila, Col) = [c20]
.Cells(Fila, Col + 1) = [b22]
With .Range("l1:m1")
Select Case Col
Case Is <= uCol
.Value = Array("Fecha 1", "Observaciones 1")
.Font.Bold = True: .HorizontalAlignment = xlHAlignCenter
Case Is > uCol
.AutoFill .Resize(, Col - 10)
End Select
End With
End With
End Sub

saludos,
hector.

__ OP __
en la hoja Formulario en la celda:
e16 tengo el numero de cotizacion
c20 la fecha
b22 la nota y/o observaciones

en la hoja Cotizaciones en la:
Columna E tengo el numero de cotizacion
Columna K el ultimo dato almacenado

entonces lo que necesito si es posible es que al darle click al boton... (insertado en la hoja formulario)
con el numero de cotizacion de la hoja formulario
me adicione la columna L con la fecha almacenada en la hoja formulario celda c20 y en la columna M las observaciones.

si se realiza esta operacion para el mismo numero de cotizacion, me adicione las columnas N y O respectivamente y asi sucesivamente.
y de ser posible que me titule las columnas insertadas:
La de la fecha: "Fecha " n ,donde n sera 1 para la primera observacion y 2 para la segunda (en negrilla y centrado)
la de la observacion con "Notas y observaciones " n, donde n sera 1 para la primera observacion y 2 para la segunda (en negrilla y centrado)
y asi sucesivamente

Preguntas similares

 

Busqueda sugerida :