[Løst] Combobox

[Trelkrok]

Hei igjen, enig med deg. Vi får være sikre på at vi har valgt rett navn før vi klikker OK ☺️

Ha en fin dag

 

RA

Endret 11. juli 2016 av Trelkrok

[Trelkrok]

Hei og hei

Det ble litt fristende å komme med et forslag...

Her popper det opp en liten boks når du klikker i B-kolonnen.

Når du skriver i tekstboksen, vises alle navn som inneholder bokstavene du skriver.

Når du klikker og taster enter evt klikker OK, settes navnet inn i listen på første ledige rad.

Når et navn er valgt, settes en "x" til venstre for navnet i kundelisten slik at den ikke kommer opp i listboksen neste gang du søker.

Denne kolonnen ("M" i eksemplet) må du slette når du nullstiller arket.

Det er over 1000 navn i listen så du kan se om hastigheten blir ok.

 

http://www.excelguru.no/download/2473/

 

Vennlig hilsen Ketil

Sletta denne, fikk den til. Jeg som hadde satt inn en rad feil angående kunder. Går som en drøm nå 

Endret 21. juli 2016 av Trelkrok

[Trelkrok]

 

 

Hei og hei

Det ble litt fristende å komme med et forslag...

Her popper det opp en liten boks når du klikker i B-kolonnen.

Når du skriver i tekstboksen, vises alle navn som inneholder bokstavene du skriver.

Når du klikker og taster enter evt klikker OK, settes navnet inn i listen på første ledige rad.

Når et navn er valgt, settes en "x" til venstre for navnet i kundelisten slik at den ikke kommer opp i listboksen neste gang du søker.

Denne kolonnen ("M" i eksemplet) må du slette når du nullstiller arket.

Det er over 1000 navn i listen så du kan se om hastigheten blir ok.

 

http://www.excelguru.no/download/2473/

 

Vennlig hilsen Ketil

Hei hei, ved første øyekast ser bare dette rått ut. Skal bygge det inn i mitt regneark og se mer på det iløpet av helga.        Når jeg har fått gjort det kommer jeg tilbake med full rapport.

Stor takk til Torbjørn også 

 

Hei igjen 

Bare ett lite spørsmål, hva hvis man klikker OK men opptager at det var feil navn 

Ellers funker dette helt topp, har lagt til en CommandButton til som åpner for registrering av ny kunde. Dette blir sååååå bra med god hjelp fra deg / dere.

 

Ha en fin kveld.

 

RA

 

Glem dette, er løst. Er tydeligvis nok programmering i dag   Får sette det på min konto "Trøtt" 

Super løsning Kjetil   

[Trelkrok]

Hei og hei

Det ble litt fristende å komme med et forslag...

Her popper det opp en liten boks når du klikker i B-kolonnen.

Når du skriver i tekstboksen, vises alle navn som inneholder bokstavene du skriver.

Når du klikker og taster enter evt klikker OK, settes navnet inn i listen på første ledige rad.

Når et navn er valgt, settes en "x" til venstre for navnet i kundelisten slik at den ikke kommer opp i listboksen neste gang du søker.

Denne kolonnen ("M" i eksemplet) må du slette når du nullstiller arket.

Det er over 1000 navn i listen så du kan se om hastigheten blir ok.

 

http://www.excelguru.no/download/2473/

 

Vennlig hilsen Ketil

Hei igjen, bare ett spørsmål. Jeg får feil på en linje i denne makroen. Markert med fet skrift.

Forslag på hva som er årsaken?

 

RA

 

Private Sub CommandButton1_Click()

 Dim sh As Worksheet

 Dim ku As Worksheet

 Dim x As Long

 Dim Kolonne As Long

 Dim Valgt As Long

 

 Set sh = Worksheets("Bestillingsliste ved")

 Set ku = Worksheets("Kunderegister")

 If ListBox1.ListIndex <> -1 Then

 

    Kolonne = 2

    Valgt = ListBox1.ListIndex

    

    With sh

     x = 2: While .Cells(x, Kolonne) <> ""

     x = x + 1: Wend

     .Cells(x, Kolonne) = ListBox1.List(Valgt)

     ku.Cells(ListBox2.List(Valgt), "AM") = "x"

    End With

    

    TextBox1 = ""

    Hide

 End If

 

'Slette x

    Sheets("Kunderegister").Select

    Columns("AM:AM").Select

    Selection.ClearContents

    Range("C2").Select

    Sheets("Bestillingsliste ved").Select

    

  

End Sub

 

Private Sub CommandButton2_Click()

'Sub openform2()

OppretteNyKunde.Show

OppretteNyKunde.TextBox1.SetFocus

Unload UserForm1

 

 

End Sub

 

Private Sub ListBox1_Click()

 CommandButton1.Enabled = True

End Sub

 

 

 

Private Sub TextBox1_Change()

  Dim sh As Worksheet

 Set sh = Worksheets("Kunderegister")

 Dim x As Long

 

 ListBox1.Clear

 ListBox2.Clear

 

 If TextBox1 <> "" Then

 

    With sh

     x = 2: While .Cells(x, "AN") <> ""

      If .Cells(x, "AM") <> "x" Then

        kunde = .Cells(x, "AN")

        If InStr(1, UCase(kunde), UCase(TextBox1)) Then

         ListBox1.AddItem kunde

         ListBox2.AddItem x

        End If

      End If

     x = x + 1: Wend

    End With

 

 End If

 

End Sub

 

Private Sub UserForm_Activate()

  TextBox1 = ""

 CommandButton1.Enabled = False

 

End Sub

[ExcelGuru]

Kanskje ikke helt optimalt å sitte ved Namsens bredder og analysere Excel, men nysgjerrig på verdien av x når makroen stopper. Har du en #ref i AN-kolonnen?

[Trelkrok]

Kanskje ikke helt optimalt å sitte ved Namsens bredder og analysere Excel, men nysgjerrig på verdien av x når makroen stopper. Har du en #ref i AN-kolonnen?

He he, rimelig ivrig da  Var jeg som hadde plassert kundenavn i feil rad  . Da jeg flyttet de ned en rad, ble alt så meget bedre.   

En super løsning for mitt bruk.

Ha en fin dag ved Namsens bredder   

 

Mvh

RA

[ExcelGuru]

Takk og takk?

[Trelkrok]

Hei hei.

Kjører Office 2010 (jobb) og Office 365 (hjemme)

 

Jeg har en Combobox1 som henter informasjon fra N3:N1000 (Kunderegister) og kjører

følgende makro:

 

Private Sub ComboBox1_Change()

  ActiveCell.Value = Range(ActiveSheet.Shapes("ComboBox1") _

                        .DrawingObject.LinkedCell).Value

End Sub

 

Dette fungerer men gir betydelig fare for feilplassering av navn.

 

Det jeg ønsker er og klikke i første ledige celle i kolonne B3:B1000 for og få inn dataene (navnet fra kundelisten) fra ComboBox1. Etter valg av navn skal Combobox1 resettes. 

 

Har prøvd og prøvd men får ikke dette til

Noen som kan være så snill og hjelpe meg med dette?

 

Ha en fin kveld

 

Mvh

Rolf Arne

Rolf Arne

Hei igjen, kan jeg få be deg om en ting til.

Jeg synes denne var så bra at jeg ønsker og bruke den i selve pakkseddelen også .

 

Kundene ligger i Kunderegister M3:M1000

Userform2 skal komme opp ved og klikke i Pakkseddel B10 og valgt navn skal da legge seg her.

Her skal kunder være tilgjengelige hele tiden og ikke markeres med x i N kolonnen

 

Kan du se på dette hadde det vært fint 

 

Mvh

RA

[Trelkrok]

 

Hei hei.

Kjører Office 2010 (jobb) og Office 365 (hjemme)

 

Jeg har en Combobox1 som henter informasjon fra N3:N1000 (Kunderegister) og kjører

følgende makro:

 

Private Sub ComboBox1_Change()

  ActiveCell.Value = Range(ActiveSheet.Shapes("ComboBox1") _

                        .DrawingObject.LinkedCell).Value

End Sub

 

Dette fungerer men gir betydelig fare for feilplassering av navn.

 

Det jeg ønsker er og klikke i første ledige celle i kolonne B3:B1000 for og få inn dataene (navnet fra kundelisten) fra ComboBox1. Etter valg av navn skal Combobox1 resettes. 

 

Har prøvd og prøvd men får ikke dette til

Noen som kan være så snill og hjelpe meg med dette?

 

Ha en fin kveld

 

Mvh

Rolf Arne

Rolf Arne

Hei igjen, kan jeg få be deg om en ting til.

Jeg synes denne var så bra at jeg ønsker og bruke den i selve pakkseddelen også .

 

Kundene ligger i Kunderegister M3:M1000

Userform2 skal komme opp ved og klikke i Pakkseddel B10 og valgt navn skal da legge seg her.

Her skal kunder være tilgjengelige hele tiden og ikke markeres med x i N kolonnen

 

Kan du se på dette hadde det vært fint 

 

Mvh

RA

 

Hei igjen, denne er løst så da skal du slippe og se på dette.

Redigerte litt på din makro og da gikk den fint

 

RA