Dante Amor

Te anexo la macro actualizada Sub Macro2() ' Dim strTitulo As String Dim Continuar As String Dim hoja As String Dim TransRowRng As Range Dim NewRow As Integer ' strTitulo = "Transferencia Entre Bodegas" hoja = Sheets("hoja1").Range("D1") If hoja = ""...

Te pongo un ejemplo para concatenar 3 fórmulas =SI(ESNUMERO(HALLAR("caracteres1";H14));"palabra1";SI(ESNUMERO(HALLAR("caracteres2";H14));"palabra2";SI(ESNUMERO(HALLAR("caracteres3";H14));"palabra3";"NO ESTA")))'S aludos. Dante Amor. Recuerda valorar...

H o l a: Una opción es que antes de abrir el archivo, cierres el formulario: Private Sub V2013_Click() Unload Me Workbooks.Open Filename:="Nombre de archivo" End Sub Y también antes de abrir el formulario, cierres el primer formulario: Private Sub...

H o l a: Te anexo la macro actualizada. Cambia en esta línea el nombre de la hoja y la celda donde vas a poner el nombre de la hoja destino. hoja = Sheets("hoja1").Range("D1") La macro: Sub Macro2() ' Dim strTitulo As String Dim Continuar As String...

Así quedaría: Private Sub CommandButton1_Click() If UCase(Range("A3").Value) = "HOLA" Then macro1 ElseIf UCase(Range("A3").Value) = "ADIOS" Then macro2 End If End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

H o l a: Supongo que solicitas lo siguiente: En la celda C3 el resultado de 750 * 50 En la celda D3 el resultado de 760 * 50 En la celda E3 el resultado de 770 * 50 ... En la celda C4 el resultado de 750 * 60 En la celda D4 el resultado de 760 * 60...

H o l a: Te anexo la macro actualizada Sub macro() Application.ScreenUpdating = False Application.DisplayAlerts = False Set h1 = Sheets("Lista") Set h2 = Sheets("otra hoja") h2.Cells.ClearContents fila = 4 j = 4 While h1.Cells(fila, 7) <> Empty est =...

H o l a: Prueba con esta opción: Después de esta línea: .Subject = "Ejemplo de Asunto" Pon esta: .SendUsingAccount = Outmail.Session.Accounts.Item(2) Cambia el 2 que está después de Item(2), por el número de cuenta El número de cuenta lo puedes ver...

H o l a: En tu ejemplo, también tendría que eliminarse la última "s", ya que aparece 3 veces. Entonces el resultado de esta frase: "pensadores mexicanos" Debería ser: "pensadores mxicano" Te anexo la macro: Sub EliminarLetrasRepetidas() 'Por.Dante...

H o l a: Pon la macro que tiene el problema. Dime qué mensaje de error te aparece. Cuando te aparece el mensaje de depurar, presiona el botón de depurar y dime qué línea de la macro se pone de amarillo. sal u dos