Formula no admite al ingresar con Macro

[ramonvar]

Bueno días señores del foro...tengo una consulta..

tengo esta formula =SI(Y(H15<41;H15<>38);G15;0); la columna "H", es donde ingreso unos códigos a través de macro, pero no me admite, cuando sobre escribo a través del teclado, ahi recién se genera lo que dice la formula..alguien puede decirme cual es el motivo?

        ActiveCell.Offset(0, 1).Select
        ActiveCell = ComboBox2

Con estas líneas es que arrojo en la columna "H" los datos..les dejo el Link

https://onedrive.live.com/?id=E55EF42198BD63DF!3096&cid=E55EF42198BD63DF

[Mauricio_ODN]

Hola ramonvar!!

Me puedes regalar una copia en googledrive por favor!!!

Saludos!!!

[ramonvar]

Hola Mauricio disculpa la ignorancia,,,copia de googledrive el instalador?

[Mauricio_ODN]

no Bro, si tu archivo lo puedes subir por un link de google, para poder descargarlo, ya que  por la politicas d emi empresa, solo tengo acceso a gloogle para descargas

[ramonvar]

Ja ja ja que ignorancia la mia Mauricio...si aca te dejo el Link

https://drive.google.com/drive/folders/0B5-NlIfimBMURGRzeDh6bEJGaVU

[Mauricio_ODN]

Oye Bro!! que nombre tiene la Macro??!!!

[ramonvar]

Hola Bro..ja ja ja...esta es la macro que me arroja en las respectivas celdas 

Private Sub CommandButton3_Click() 'Boton aceptar, enviar datos a las diferentes celdas
       
If TextBox3.Text = "" Then
        MsgBox ("SI Seleccionó el RUC debe Ingresar los demás Datos SI NO Salir")
    Else
       
    If TextBox3.Text = "" Then
        MsgBox ("Debe Ingresar el N° de Factura o Salir")
    Else
        If ComboBox1.Text = "" Then
            MsgBox ("Debe Seleccionar Tipo de Documento o Salir")
        Else
        
            If TextBox4.Text = "" Then
            MsgBox ("Debe ingresar Monto")
            Else
            
                'If ComboBox2.Text = "" Then
                 'MsgBox ("Debe Seleccionar Tipo de Código o Salir")
                'Else
                
                'If ComboBox3.Text = "" Then
                 'MsgBox ("Ingrese el IVA o Salir")
                'Else
        
        ActiveCell.Offset(0, 2).Select
        ActiveCell = TextBox3
        fila = Range("A" & Rows.Count).End(xlUp).Row + 1
        
        ActiveCell.Offset(0, 1).Select
        ActiveCell = TextBox5
        'ActiveWorkbook = Sheets("Hoja27").Cells(7, 2)
        '---------------------------------------------------
        
        ActiveCell.Offset(0, 1).Select
        ActiveCell = ComboBox1
        
        ActiveCell.Offset(0, 1).Select
        ActiveCell = CDbl(TextBox4) 'Convierte a número doble
        'ActiveCell = TextBox4
        
        ActiveCell.Offset(0, 1).Select
        ActiveCell = ComboBox2
        
        ActiveCell.Offset(0, 2).Select
        ActiveCell = ComboBox3
        
        'aqui puedes colocar tu codigo para algun procedimiento
        'MsgBox ("Excelente!!!!...")
        
                End If
            End If
        End If
   'End If
  'End If
 End If
End Sub

 

[ramonvar]

Aaah Bro!!...la formula se encuentra en la columna "P"...y aprovechando tu gentileza...si te fijas el userform9 tiene un textbox5, que al hacer click en el listbox el trae automáticamente el timbrado...en el textbox5, y, es ese lo que quiero que al cambiar manualmente en caso sea diferente al de mi factura, que me actualice la base de datos llamada "RUCs empresas (Hoja27); en la columna "F", disculpa por abusar de tu tiempo..

Abrazo

[Mauricio_ODN]

OK Bro !! Lo reviso!!

De favor da terminado este post y continuamos por el otro

 

Saludos!!!!!!

[ramonvar]

Ok Mauricio...damos como finalizado este tema....favor dar como concluido

[ramonvar]

Gracias Mauricio...principalmente por tu tiempo...damos por cerrado este tema...ya lo resolví..

Un Abrazo, hasta una próxima