Adriel Ortiz Mangia

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

[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") =...

[Hola Muestra tus datos y ver como están organizados

[Hola Prueba la siguiente macro y me comentas Sub AOM() 'Por Adriel ' u = Range("A" & Rows.Count).End(xlUp).Row ' For i = 2 To u dato = Cells(i, "A") If Cells(i, "B") = "" Then If InStr(dato, "S") > 0 Then num = Right(dato, Len(dato) - 1) If Len(num)...

[Hola Prueba con la siguiente macro Sub CONT() 'Por Adriel ' u = Range("A" & Rows.Count).End(xlUp).Row ' For i = 2 To u dato = Cells(i, "A") If InStr(dato, "OPS") > 0 Then num = Right(dato, Len(dato) - 3) Cells(i, "B") = "S" & num ElseIf InStr(dato,...

[Te paso la macro Sub Prueba() 'Adriel With Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=IF(RC[-1]=RC[3],RC[3],"""")" .Value = .Value End With End Sub

[Hola Te paso la macro Sub Prueba() 'Adriel With Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=IF(RC[-1]=RC[1],RC[-1],"""")" .Value = .Value End With End Sub

[Hola Te paso la macro Sub agrega_letra() '_Adriel Ortiz Application.ScreenUpdating = False ' u = Range("A" & Rows.Count).End(xlUp).Row suf = "S" ' For i = 2 To u cant = Len(Cells(i, 1)) If IsNumeric(Cells(i, 1)) And cant = 6 Then Cells(i, 1) = suf &...

[Hola Como tienes tus datos en la columna B, una letra o son varias letras por celda

[Hola revisa esto http://trucosycursos.es/guardar-y-cerrar-un-libro-excel-transcurrido-un-tiempo-de-inactividad/