Test code vba

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
17.669
703
113
Como
2011MAC 2016WIN
294
Codice:
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If ComboBox1 = "" Then Exit Sub
    If KeyCode = 13 Then
        Cbx1 = ComboBox1
        Trova
        ComboBox1.ListIndex = -1
    End If
End Sub
 
Ultima modifica di un moderatore:

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
17.669
703
113
Como
2011MAC 2016WIN
294
Visual Basic:
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If ComboBox1 = "" Then Exit Sub
    If KeyCode = 13 Then
        Cbx1 = ComboBox1
        Trova
        ComboBox1.ListIndex = -1
    End If
End Sub
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
17.669
703
113
Como
2011MAC 2016WIN
294
Codice:
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If ComboBox1 = "" Then Exit Sub
    If KeyCode = 13 Then
        Cbx1 = ComboBox1
        Trova
        ComboBox1.ListIndex = -1
    End If
End Sub
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
17.669
703
113
Como
2011MAC 2016WIN
294
C:
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If ComboBox1 = "" Then Exit Sub
    If KeyCode = 13 Then
        Cbx1 = ComboBox1
        Trova
        ComboBox1.ListIndex = -1
    End If
End Sub
 

Matheeus

Webmaster
Amministratore
10 Luglio 2017
63
65
18
Aversa
www.netora.it
2016 Mac
7
Codice:
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If ComboBox1 = "" Then Exit Sub
    If KeyCode = 13 Then
        Cbx1 = ComboBox1
        Trova
        ComboBox1.ListIndex = -1
    End If
End Sub
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
17.669
703
113
Como
2011MAC 2016WIN
294
Codice:
Option Explicit
Sub cancellrighe()
    Dim RwRng As Long
    Dim i As Long
    
    'identificare la colonna dove eseguire la ricerca
    RwRng = Cells(Rows.Count, 3).End(xlUp).Row
    
    'identificare la prima cella fino alla fine
    For i = 6 To RwRng
        If Cells(i, "B") = Range("H7") Then
            Cells(i, "B").EntireRow.Delete
        End If
    Next i
    
End Sub
 

Matheeus

Webmaster
Amministratore
10 Luglio 2017
63
65
18
Aversa
www.netora.it
2016 Mac
7
Codice:
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If ComboBox1 = "" Then Exit Sub
    If KeyCode = 13 Then
        Cbx1 = ComboBox1
        Trova
        ComboBox1.ListIndex = -1
    End If
End Sub
 

Matheeus

Webmaster
Amministratore
10 Luglio 2017
63
65
18
Aversa
www.netora.it
2016 Mac
7
Codice:
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If ComboBox1 = "" Then Exit Sub
    If KeyCode = 13 Then
        Cbx1 = ComboBox1
        Trova
        ComboBox1.ListIndex = -1
    End If
End Sub
 

Matheeus

Webmaster
Amministratore
10 Luglio 2017
63
65
18
Aversa
www.netora.it
2016 Mac
7
Visual Basic:
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If ComboBox1 = "" Then Exit Sub
    If KeyCode = 13 Then
        Cbx1 = ComboBox1
        Trova
        ComboBox1.ListIndex = -1
    End If
End Sub
 
  • Like
Reactions: ges

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
17.669
703
113
Como
2011MAC 2016WIN
294
Visual Basic:
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If ComboBox1 = "" Then Exit Sub
    If KeyCode = 13 Then
        Cbx1 = ComboBox1
        Trova
        ComboBox1.ListIndex = -1
    End If
End Sub
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
17.669
703
113
Como
2011MAC 2016WIN
294
Visual Basic:
Option Explicit
Sub cancellrighe()
    Dim RwRng As Long
    Dim i As Long
  
    'identificare la colonna dove eseguire la ricerca
    RwRng = Cells(Rows.Count, 3).End(xlUp).Row
  
    'identificare la prima cella fino alla fine
    For i = 6 To RwRng
        If Cells(i, "B") = Range("H7") Then
            Cells(i, "B").EntireRow.Delete
        End If
    Next i
  
End Sub
 
Ultima modifica di un moderatore:

alfrimpa

VBA Expert
Supermoderatore
Expert
18 Dicembre 2015
17.225
690
113
65
Napoli
2013
281
Visual Basic:
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.ColorIndex = 3
End Sub
 

ges

Excel/VBA Expert
Amministratore
Expert
21 Giugno 2015
17.669
703
113
Como
2011MAC 2016WIN
294
Visual Basic:
Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If ComboBox1 = "" Then Exit Sub
    If KeyCode = 13 Then
        Cbx1 = ComboBox1
        Trova
        ComboBox1.ListIndex = -1
    End If
End Sub
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!