Posts by Pedro003

Hi guys, I have this code, this makes an autofilter in real time, all right, but when I put some number for filter in column with numbers this show nothing, whats wrong? pls help

'
Private Sub TextBox1_Change()

Dim Criterio As String
Dim Columna As Integer

    If Hoja1.TextBox1.Value <> "" Then
    
        If Hoja1.ComboBox1.Value = "" Then Exit Sub
        
        If Hoja1.CheckBox1.Value = True Then
        
            Criterio = Hoja1.TextBox1.Value & "*"
            
        Else
        
        Criterio = "*" & Hoja1.TextBox1.Value & "*"
        
        End If
        
        Columna = Hoja1.ComboBox1.ListIndex + 1
        Range("A2").CurrentRegion.AutoFilter Field:=Columna, Criteria1:=Criterio
    Else
        Criterio = ""
        Range("A2").CurrentRegion.AutoFilter
    End If

Hi guys, I have this table

And this code, this code makes an autofilter in real time, the problem is when I have a filter on anyone row, the code only search with the filtered information but not with all information from the table, how can i make the code search entire table?

Private Sub TextBox1_Change()

Dim Criterio As String

    If Hoja1.TextBox1.Value <> "" Then
        Criterio = "*" & Hoja1.TextBox1.Value & "*"
        Range("A5").CurrentRegion.AutoFilter Field:=6, Criteria1:=Criterio
    Else
        Criterio = ""
        Range("A5").CurrentRegion.AutoFilter
    End If
    
End Sub

Hi guys, I have the next code, this is a real time autofilter on excel

I want to when the text box its clean this filter with criterial "PENDIENTE" o field 15, but this not work, whats wrong?, with the button }works but with clean text box not work.

Option Explicit

Private Sub CommandButton5_Click()

Range("A5").CurrentRegion.AutoFilter Field:=15, Criteria1:= _
        "=PENDIENTE"
Hoja1.TextBox1.Value = ""

End Sub

'
Private Sub TextBox1_Change()

Dim Criterio As String

    If Hoja1.TextBox1.Value <> "" Then
        Criterio = "*" & Hoja1.TextBox1.Value & "*"
        Range("A5").CurrentRegion.AutoFilter Field:=6, Criteria1:=Criterio
    Else
        Criterio = ""
        Range("A5").CurrentRegion.AutoFilter Field:=15, Criteria1:= _
        "=PENDIENTE"
    End If
    
End Sub

you'r awesome

Hi Kjbox thanks for you answer, but the problems its that i need differents messages on column O and P i forget say this

Hi guys, how I can combine this two code for worsheet_change?

/CODE FOR COLUMN O/
Private Sub Worksheet(ByVal Target As Range)
On Error Resume Next    With Target    If .CountLarge > 1 Or .Column <> 15 Then Exit Sub        .ClearComments        On Error GoTo 0        .AddComment        .Comment.Text Text:="Recepcionado el " & Format(Date, "long date") & " por: " & Application.UserName        .Comment.Visible = True    End With
End Sub

/CODE FOR COLUMN P/
Private Sub Worksheet_2(ByVal Target As Range)
On Error Resume Next    With Target    If .CountLarge > 1 Or .Column <> 16 Then Exit Sub        .ClearComments        On Error GoTo 0        .AddComment        .Comment.Text Text:="Confirmado el: " & Format(Date, "long date") & " por: " & Application.UserName        .Comment.Visible = True    End With
End Sub

So good your code, its work, how can I make it work only in the column O?

Hi guys, you know any code to generate automatically the date of modification of one cell?

Hi guys, I have this sample formula

Quote

=IF(O78="RECIBED";TODAY();"")

this is in the cell O79 for example, but I want when I write RECIBED on the O78 cell in the O79 cell show de date of the day of modification, cause I need a date of RECIBED and I'm looking for it to be automatic

Hi dears, I have mi data base on excel with trucks, I have DT trucks and numbers trucks ex:

B1= 100

B2= 101

B3= 102

...

B50= 150, you know, continuous number, en this its easy cause I need displace the cell, but when I have a DT its like this

B51= DT

B52= 151

And my question: How I can put DT on the cell but make the down cell omit that DT and continue with de last number?

Sub EnviarMensajes()
    Dim IE As Object
    Dim row As Integer
    
    row = Cells(Rows.Count, 2).End(xlUp).row 'Encontrar ultima fila utilizada
    For i = 7 To row
        Set IE = CreateObject("InternetExplorer.Application")
        IE.navigate "whatsapp://send?phone=+56" & Range("C" & i).Value & "&Text=" & Range("D" & i).Value
        Application.Wait (Now() + TimeValue("00:00:03"))
        SendKeys "~" 'Enter
    Next
    
    Set IE = Nothing 'Clear the object
End Sub

Hi, how can i change the code for send a pdf file from my computer?

Hi guys, I have mi excel with a button in each cell like img, this is for print de information to that row, I have the next code for that:

Sub Macro1()
'
Range(Cells(ActiveCell.Row, 1), Cells(ActiveCell.Row, ActiveCell.Column)).Copy
    Sheets("Hoja1").Select
    Range("E2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Nuevo PC\Downloads\Tickets", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
End Sub

But that code is for print de information of the row of the active cell, but when i press de button print that not active the cell, that is my question, how can i do that when i select de img to print the cell also activated?

Hi my friends, I want to know if anyone have a code to send a pdf file from mi folders to a whatsapp number 🙂 ty so much

Bro you are amazing ty so much

Dont work, dont select the row to left end

Hi dears, I have this code


Range(activecell, Activecell.end(xlToLeft)).copy


But the code onlye select to the empty cell, how I can i make it select all cell and empty too?