Register

[Falcor]

Har ett Excelblad med medlemmar från vår förening.

Adresser, namn, nummer mail osv

Skulle vilja snygga upp den och göra olika sökfunktioner.
 

T.ex sökning på ett förnamn så att alla med det förnamnet kommer upp.

En enkel knapp för att lägga till nya medlemmar.
 

 

Har jobbat massor med timmar på detta men just sökfuktionen med knapparna får jag inte ihop..

Någon som kan ge mig lite råd?

Tack snälla ni på förhand

 

AM

[Monshi]

=PASSA("Joh" & "*" ;A1:A10;0)

ger dig första raden Johan står på..

En index-formel på detta och du får fram värden på raden.

 

Ok, nästa Johan?

Då byter...äh. du får ett ark

Lägga till? behöver du det? Det är ju bara att gå längst ned i tabellen och fylla i. Eller så måste vi bygga VBA-kod enbart för detta, ett lite formulär osv.

 

Sökexempel.xlsx

[Falcor]

=PASSA("Joh" & "*" ;A1:A10;0)

ger dig första raden Johan står på..

En index-formel på detta och du får fram värden på raden.

 

Ok, nästa Johan?

Då byter...äh. du får ett ark

Lägga till? behöver du det? Det är ju bara att gå längst ned i tabellen och fylla i. Eller så måste vi bygga VBA-kod enbart för detta, ett lite formulär osv.

 

Tack för ditt svar :)

 

Tog hem ditt Excelark och kollar vidare.

 

Det är just sökningskriterierna jag tänkte på.

Att på ena bladet har du hela långa listan med medlemmar.

Och på andra bladet sökfunktionerna 

 

Som, sök medlem

Sök medlemsnummer

Och att på söksidan sedan radas upp allt som man just sökt på då..

 

Hoppas du förstår hur jag tänker

 

Har VBA och har tittat på det men jag känner att det blir för svårt för mig då jag aldrig hanterat det programmet.

 

AM

[Monshi]

Det exemplet löser väl grundproblemet med din sökning? Går utifrån exemplet bygga ut riktigt komplexa lösningar.

 

Går utmärkt att flytta det till annat blad i boken.

Vad gäller VBA är det du frågar efter inte så svårt. Jag säger som så.

 

1:Skapa ett formulär

2: Skapa ett område på en sida där du ställer upp värdena från formuläret, med formler, i samma ordning som de ska vara i tabellen. Namnge området

3: Nu kommer frågan, din tabell är den satt upp som en tabell med ett namn?  Då kan man adressera denna tabell via namnet och be den om antal rader och lägga in allt sist, be den lägga in ny rad, hålla koll på den och lägga in allt där.

4: Eller så kör man klassiskt och letar reda på sista använda cellen. och klistrar in värden från punkt 2 där.

 

 

Antar att detta inte räcker för att du ska bygga något så:

Sub myCopier()
 
    Dim rnSource As Range
    Dim lsrow As ListRow
    Set rnSource = Me.Range("rnvalues")
    With Me.ListObjects("tbData")
         Set lsrow = .ListRows.Add
         lsrow.Range.Value = rnSource.Value
    End With

End Sub

där din tabell heter tbData

Dina värden ligger inom rnvalues

Dina data i rnValues är lika många celler som tabellen är vid.

Koden ligger på samma blad.