Ximena Rodri

Apreciable tenga un excelente día : La sugerencia práctica es que localice un "DIF" el más cercano a su lugar de residencia, esto con la finalidad de que personal especializado en asuntos familiares y del menor le apoyen y le canalicen para afrontar...

Cordial para usted: En el distrito federal y Estado de México existe la figura de divorcio incausado o vulgarmente conocido "exprés", es una "solicitud ya sea unilateral o por mutuo acuerdo"... en ambos casos es decretado en senténcia la disolución...

Elsa Matilde respondió: Esta macro hace lo que necesitas: Sub sinCeros() 'x Elsamatilde For Each cd In Range("F2:F" & Range("F" & Rows.Count).End(xlUp).Row) If cd.Value = 0 Then cd.Value = "" Next cd End Sub Ingresá al Editor de macros, insertá un módulo y allí pegala....

Dante Amor respondió: Te anexo la macro Sub Reemplazar() 'Por.Dante Amor For i = 1 To Range("A" & Rows.Count).End(xlUp).Row If InStr(1, UCase(Cells(i, "A")), "CONTABLE") > 0 Then Cells(i, "F") = "BA578" Cells(i, "I") = "'0029" Cells(i, "Q") = "" End If Next End Sub En tu...

Rap-o ... respondió: En la pestaña de cualquier hoja clic derecho >> ver código luego doble clic en thisworkbook Agregas esto Private Sub Workbook_Open() UserForm1.Show End Sub

Dante Amor respondió: Disculpa pero no entendí, podrías explicarme nuevamente. ¿Hay qué modificar la macro? ¿O es un nuevo proceso?

Dante Amor respondió: Te anexo la macro Sub CrearHojas() 'Por.Dante Amor Application.DisplayAlerts = False Application.ScreenUpdating = False Set h1 = Sheets("base") n2 = "construccion" n3 = "detalle" ' For Each h In Sheets If UCase(h.Name) = UCase("construccion") Then...

Dante Amor respondió: Puedes explicar con ejemplos lo que tienes y lo que quieres. Pon 3 imágenes. En la primera imagen pon lo que tienes en la hoja1 En la segunda imagen pon lo que tienes en la hoja2 En la tercera imagen pon el resultado que esperas en la hoja1.