Jump to content

ahortac

Members
  • Posts

    13
  • Joined

  • Last visited

  • Country

    Colombia

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

ahortac's Achievements

  1. Este es el archivo. Gracias https://drive.google.com/file/d/1jISnbBwLRH7cg8v1VFQwR4tMYcqpGXL1/view?usp=sharing
  2. Hola amigos, Tengo esta macro que habia venido usando para registrar entradas de dinero, ahora la modifique para que sea entrada de progresos de pacientes. En el campo pago solo se permite usar numeros, quiero cambiarlo a texto pero no estoy seguro donde debo modificar el codigo. EL archivo esta adjunto aqui y el codigo es el siguiente Private Sub CommandButton1_Click() Dim Uc As Integer Dim I As Integer Dim Uf As String Dim Pago As Double With Hoja3 Uf = .Range("A" & Rows.Count).End(xlUp).Row Pago = TxtPago For I = 1 To Uf Uc = .Cells(I, Columns.Count).End(xlToLeft).Column If ComboBox1.Text = .Cells(I, 2).Text Then .Cells(I, Uc).Offset(0, 1) = CDbl(TxtPago) .Cells(I, Uc).Offset(0, 2) = TxtConcepto .Cells(I, Uc).Offset(0, 3) = CDate(Date) Exit For End If Next MsgBox "REGISTRADO SATISFACTORIAMENTE", vbInformation, "PROCESADO" End With End Sub
  3. Muchas gracias JSDJSD, funciona perfectamente. Solo cambiaste rowsource por additem?
  4. Hola tengo una macro que he utilizado correctamente antes desde windows, necesito abrirlo en MAC. Primero elimine todos los ActiveX controls para que funcione en mac y cambie algunos codigos. Ahora cuando trato de ejecutar el boton me sale error, es porque estoy usando RowSource el cual no funciona en mac. He probado distintos codigos sin exito. Este es el codigo del user form que tengo Private Sub UserForm_Initialize() Dim Uf As String Uf = Hoja3.Range("A" & Rows.Count).End(xlUp).Row ComboBox1.RowSource = "Registros!B2:B" & Uf End Sub Agradeceria si pueden ayudarme a cambiar este codigo sin alterar la macro. La macro esta disenada para buscar personas y agregar pagos co. conceptos en otra hoja donde ademas se genera una fecha y va agregando los pagos que realiza cada persona. Ayuda Excel-Cuentas-2.xlsm
×
×
  • Create New...

Important Information

Privacy Policy