Adriel Ortiz Mangia

[Hola Crear Macro para guardar archivo con extensión CSV (asignando ciertas celdas)

Pon ejemplos para entender lo que necesitas

[Hola Entonces puedes usar esto https://www.gerencie.com/enviar-varias-hojas-de-un-libro-de-excel-a-imprimir-o-archivo.html

[Hola Te paso la macro Sub prueba() valor = Range("A12").Value Set r = Rows(13) Set busca = r.Find(valor, LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Nothing Then MsgBox "Dato encontrado en :" & busca.Address, vbInformation Else MsgBox "No...

[Hola envíame tu archivo para revisarlo [email protected]

[Hola Te paso la macro Macro para combobox1 Private Sub ComboBox1_Click() Set h = Sheets("Hoja1") ListBox1.Clear Set r = h.Columns("A") ' Set b = r.Find(ComboBox1, LOOKAT:=xlWhole) If Not b Is Nothing Then ListBox1.AddItem h.Cells(b.Row, "B")...

[Hola Prueba esto Sub BUSCAR() busca = InputBox("Ingresa Dato a buscar") If busca = "" Then Exit Sub Set R = Range("A1:A50") Set b = R.Find(busca, LOOKAT:=xlWhole) If Not b Is Nothing Then MsgBox "Dato encontrado", vbInformation, "Aviso" b.Select End...

[Hola On Error Resume Next ' Sheets("BalanceB").Copy After:=Sheets(ActiveWorkbook.Sheets.Count) ActiveSheet.Name = Hoja39.Cells(4, 6)

[Hola pon al principio el signo igual (=) =SI(A1=''baja'';0;1) fíjate también en los separadores si es coma(,) o punto y coma (;) =SI(A1=''baja'',0,1)

[Hola Va la macro Private Sub Cmdguardar_Click() Set h2 = Sheets("DATOS") ' 'REGISTRO u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 If u < 8 Then u = 8 ' h2.Cells(u, "B") = Txtidentidad h2.Cells(u, "C") = Txtcaso.Text h2.Cells(u, "D") =...