Importo los datos de formulario, pero unas celdas que uso son numéricas me las aliniea a la izquierd
Hola Buenas Tardes Tengo 3 problemas el numero 1 tengo un
Formulario en VB con excel el cual Agrega mis datos pero todos los
agrega como texto, y ocupo que JOB me lo agrege como numero porque asi
no sirve mi Siguiente columna que lo usa concatena. Este es mi codigo y
esta es la imagen.
'INICIO DE VALIDACIONES
largo = txtBin.TextLength
largo2 = txtProducto.TextLength
largo3 = txtInstrumento.TextLength
If largo <> 6 Or Not IsNumeric(txtBin.Value) Then
MsgBox "El número debe ser a 6 dígitos y debe ser número"
txtBin.SetFocus
Else
If largo2 <> 6 Or Not IsNumeric(txtProducto.Value) Then
MsgBox "El número debe ser a 6 dígitos y debe ser número"
txtProducto.SetFocus
Else
If largo3 <> 6 Or Not IsNumeric(txtInstrumento.Value) Then
MsgBox "El número debe ser a 6 dígitos y debe ser número"
txtInstrumento.SetFocus
Else
If cbSeleccioneSistema = "" Then
MsgBox "No se ha seleccionado un Sistema"
cbSeleccioneSistema.SetFocus
Else
If cbSeleccioneSegmento = "" Then
MsgBox "No se ha ingresado un Segmento"
cbSeleccioneSegmento.SetFocus
Else
If cbMoneda = "" Then
MsgBox "No se ha seleccionado la Moneda"
cbMoneda.SetFocus
Else
If cbEstatus = "" Then
MsgBox "No se ha seleccionado un Estatus"
cbEstatus.SetFocus
Else
If cbAccountType = "" Then
MsgBox "No se ha seleccionado un Tipo de Cuenta"
cbAccountType.SetFocus
Else
If txtBin = "" Then
MsgBox "No se ha seleccionado un Bin"
txtBin.SetFocus
Else
If txtProducto = "" Then
MsgBox "No se ha seleccionado un Producto"
txtProducto.SetFocus
Else
If txtInstrumento = "" Then
MsgBox "No se ha seleccionado un Instrumento"
txtInstrumento.SetFocus
Else
If txtSegmento = "" Then
MsgBox "No se ha seleccionado un Segmento"
txtSegmento.SetFocus
Else
If txtDescripcionCorta = "" Then
MsgBox "No se ha seleccionado una Descripcion Corta"
txtDescripcionCorta.SetFocus
Else
If txtDescripcionLarga = "" Then
MsgBox "No se ha seleccionado una Descripcion Larga"
txtDescripcionLarga.SetFocus
Else
If txtAbreviación = "" Then
MsgBox "No se ha seleccionado una Abreviaciones"
txtAbreviación.SetFocus
Else
If txtTotalRegsAsoc = "" Then
MsgBox "No se ha seleccionado un Total RegsAsoc"
txtTotalRegsAsoc.SetFocus
Else
If txtRefSeg = "" Then
MsgBox "No se ha seleccionado un Total Ref Seg"
txtRefSeg.SetFocus
Else
If txtSegmento2 = "" Then
MsgBox "No se ha seleccionado un Segmento"
txtSegmento2.SetFocus
Else
If txtTriad = "" Then
MsgBox "No se ha seleccionado un Triad"
txtTriad.SetFocus
Else
If txtScore = "" Then
MsgBox "No se ha seleccionado un Score"
txtScore.SetFocus
Else
If cmbProceso = "" Then
MsgBox "No se ha seleccionado un Proceso"
cmbProceso.SetFocus
Else
'Call Desproteger
'ALTA DE LOS REGISTROS
Set TransRowRng = ThisWorkbook.Worksheets("CA-PRO-INS").Cells(1,
1).CurrentRegion
NewRow = TransRowRng.Rows.Count + 1
With ThisWorkbook.Worksheets("CA-PRO-INS")
.Cells(NewRow, 1).Value = cbSeleccioneSistema
.Cells(NewRow, 2).Value = txtBin
.Cells(NewRow, 3).Value = txtProducto
.Cells(NewRow, 4).Value = txtInstrumento
.Cells(NewRow, 5).Value = txtSegmento
.Cells(NewRow, 6).Value = cbMoneda
.Cells(NewRow, 7).Value = txtDescripcionCorta
.Cells(NewRow, .Value = txtDescripcionLarga
.Cells(NewRow, 9).Value = txtAbreviación
.Cells(NewRow, 10).Value = cbEstatus
.Cells(NewRow, 11).Value = txtTotalRegsAsoc
.Cells(NewRow, 12).Value = txtRefSeg
.Cells(NewRow, 14).Value = txtSegmento2
.Cells(NewRow, 15).Value = cbAccountType
.Cells(NewRow, 18).Value = txtTriad
.Cells(NewRow, 19).Value = txtScore
.Cells(NewRow, 21).Value = txtJob
.Cells(NewRow, 22).Value = cmbProceso
End With
GoTo fin
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
'Call Proteger
Exit Sub
fin:
Mi
segundo problema es Al copiar un rango de columnas de un libro a otro
se cierra el formulario donde ejecuto mi proyecto no se porque y me
gustaria saber si hay algun modo que cuando este copiando las columnas
se vallan adjuntando al final y no remplacen las que ya tengo.
'Definir objetos a utilizar
Dim wsOrigen As Excel.Worksheet, _
wsDestino As Excel.Worksheet, _
rngOrigen As Excel.Range, _
rngDestino As Excel.Range
'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("CA-PRO-INS")
Set wsDestino = Worksheets("Consolidado")
'Indicar la celda de origen y destino
Const celdaOrigen = "AH5"
Const celdaDestino = "A9"
'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaOrigen)
Set rngDestino = wsDestino.Range(celdaDestino)
'Seleccionar rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
'Pegar datos en celda destino
rngDestino.PasteSpecial xlPasteValues
Application.CutCopyMode = False
