Artikel oproepen.

[HSV]

Beter Machiel?

Private Sub Worksheet_selectionChange(ByVal Target As Range)
With ComboBox1
    If Not Intersect(Target, Range("A22:A39")) Is Nothing Then
      .Top = Target.Top
      .Left = Target.Left
      .List = Sheets("artikelen").Cells(1).CurrentRegion.Offset(1).SpecialCells(2).Value
      .Visible = True
      .ListIndex = -1
      .Activate
    Else
      .Visible = False
    End If
 End With
End Sub

 

[machielv]

leegmaken

Harry
Ga morgenvroeg gelijk proberen maar zal wel goed zijn.

mvg.
Machiel

 

[machielv]

Foutmelding

Hallo Harry
Als ik de eerste regel leeg maak krijg ik bij de tweede regel een foutmelding en doe foutopsporing.
Deze regel wordt dan in zijn geheel geel gemarkeerd.
.List = Sheets("artikelen").Cells(1).CurrentRegion.Offset(1).SpecialCells(2).Value

Kun je de bij jouw goed werkende versie even als bijlage meegeven.

mvg.

Machiel

Private Sub Worksheet_selectionChange(ByVal Target As Range)
With ComboBox1
If Not Intersect(Target, Range("A22:A39")) Is Nothing Then
.Top = Target.Top
.Left = Target.Left
.List = Sheets("artikelen").Cells(1).CurrentRegion.Offset(1).SpecialCells(2).Value
.Visible = True
.ListIndex = -1
.Activate
Else
.Visible = False
End If
End With
End Sub

 

[HSV]

Welke eerste regel van welk blad?

Als je daar een fout op krijgt heb je vast geen currentregion (aaneengesloten bereik) meer.

 

[machielv]

artikel

Bij het verwijderen van een artikel in A22 en verliest dan ook het pulldown om een keuze te bepalen.
Bij het verwijderen middels delete A23 komt dan de foutmelding.
Ook werkt dan het ingeven van de 1e letter niet.

mvg.
Machiel

 

[HSV]

Doe je invoer met een dubbelklik.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 ComboBox1.Visible = False
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With ComboBox1
    If Not Intersect(Target, Range("A22:A39")) Is Nothing Then
      .Top = Target.Top
      .Left = Target.Left
      .List = Sheets("artikelen").Cells(1).CurrentRegion.Offset(1).SpecialCells(2).Value
      .Visible = True
      .ListIndex = -1
      .Activate
    End If
 End With
 Cancel = True
End Sub

 

[machielv]

Dubbelklik

Nee het eerste wat ik uitschakel is de dubbelklik

 

[HSV]

Vreemd.

Is dit beter?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ComboBox1
    If Not Intersect(Target, Range("A22:A39")) Is Nothing and target.count = 3 Then
      .Top = Target.Top
      .Left = Target.Left
      .List = Sheets("artikelen").Cells(1).CurrentRegion.Offset(1).SpecialCells(2).Value
      .Visible = True
      .ListIndex = -1
      .Activate
    else
      .Visible = False
    End If
 End With
End Sub

 

[machielv]

Vreemd.

Is dit beter?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ComboBox1
    If Not Intersect(Target, Range("A22:A39")) Is Nothing and target.count = 3 Then
      .Top = Target.Top
      .Left = Target.Left
      .List = Sheets("artikelen").Cells(1).CurrentRegion.Offset(1).SpecialCells(2).Value
      .Visible = True
      .ListIndex = -1
      .Activate
    else
      .Visible = False
    End If
 End With
End Sub

Harry
Het werkt met de artikelen perfect maar waar het om gaat dat ik een ingevoerd artikel uit de factuur kan verwijderen.
Dit lukt niet door op de regel te klikken en delete en heb ook geen mogelijkheid op de formulebalk om de tekst te verwijderen.
Ik heb wel teamviewer als dat handiger is.
mvg.
Machiel

 

[HSV]

Daarom schreef ik, doe de invoer met een dubbelklik dan kan je met de selectionchange een iets verwijderen.

 

[machielv]

Artikel

Harry
Het werkt wel maar ik had verwacht dat het simpel met een delete zou werken.

Bedankt nogmaals en hoop nog eens een beroep op je te mogen doen.

mvg.
Machiel

 

[HSV]

Dit is ook simpel, maar of dat nu een goede oplossing is?
Elke keer je op een cel in het bereik komt wordt het eerst leeggemaakt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 With ComboBox1
    If Not Intersect(Target, Range("A22:A39")) Is Nothing Then
[COLOR=#0000ff]      target = ""[/COLOR]
      .Top = Target.Top
      .Left = Target.Left
      .List = Sheets("artikelen").Cells(1).CurrentRegion.Offset(1).SpecialCells(2).Value
      .Visible = True
      .ListIndex = -1
      .Activate
    Else
      .Visible = False
    End If
 End With
End Sub

 

[machielv]

Oplossing

Harry
Eigenlijk is dit progje bedoeld voor verenigingen in de duivensport en zal dus kwa artikelen e.d. zeer klein zijn maar omdat in deze hobby het bijna allemaal oudjes zijn die net als ik boven de zeventig zijn lijkt mij dit wel de beste oplossing want er hoeft minder uitgelegd te worden.
Mocht jij evenwel betere suggesties hebben houdt ik me aanbevolen.

mvg.
Machiel