Adriel Ortiz Mangia

[Hola valora la respuesta para finalizar Sub copia_elimina() ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") u = h2.Range("B" & Rows.Count).End(xlUp).Row + 1 ' For i = h1.Range("B" & Rows.Count).End(xlUp).Row To 28 Step -1 If h1.Cells(i, "B") <>...

[Hola revisa esto https://www.todoexpertos.com/preguntas/9g8c5gf63mitok97/como-creo-el-siguiente-macro?selectedanswerid=9g8phovkb37y9fx8&nid=gntm9w6q9gm9vh6sgsr9xhkqabvphh6jg4qqftu59fuqlhe9i3v6nfb

[Hola Envíame tu archivo a [email protected] o sube a la nube tu archivo

[Hola Valora la respuesta para finalizar Va la macro Sub copia() Set h1 = Sheets("Data") Set h2 = Sheets("FRS") ' u = h1.Range("A" & Rows.Count).End(xlUp).Row + 1 For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i, "B") = "FRS" Then...

[Hola sustituye la instrucción now() por Date ActiveSheet.Cells(FilaLibre, miCelda.Column).Offset(0, 3).Value = Date la otra línea ActiveSheet.Cells(FilaLibre, miCelda.Column).Offset(0, 4).Value = Date

[Hola Pon imágenes un antes y después para entender mejor y apoyarte

[Hola prueba así Private Sub TBMuestraSocio_Change() ' fila = 2 'la uno tiene los rótulos ' uf = Sheets("Base de datos").Range("N" & Rows.Count).End(xlUp).Row ' CB_ProductoPpal.Clear ' d1 = Me.TBMuestraSocio d2 = Me.CB_ProductoPpal.Text ' While...

[Hola Debes explicar con más detalles

[Hola Va la macro Private Sub CommandButton1_Click() If OptionButton1 Then OptionButton1.Value = False End Sub valora la respuesta saludos!

[Hola Valorar ++excelente para finalizar Prueba con la siguiente macro Sub CopiaraWord() ' Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Set h1 = l1.Sheets.Add For Each h In Sheets If h.Name <> h1.Name...