PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBASöka upp värden och returnera till textboxarSöka upp värden och returnera till textboxar
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2016-03-25 10:24
 

 Hej,

 

Jag har skapat ett formulär, (frm1), med 20 olika textboxar där man fyller i olika uppgifter för tex. ett rum så som rumsnummer, golvyta,väggyta, fönsterstorlek etc. etc. Detta ligger till grund för att räkna ut värmeförluster i en byggnad och läggs sedan till i en ny rad i ett kalkylblad när man klickar på knappen "Lägg till". Så här långt funkar allt.

 

När man skapat ett antal rader så har man kanske ett rum som är snarlikt ett tidigare. Då vill jag att man bara ska ange rumsnumret så ska data för väggyta kopieras in i textboxen för väggyta, golvyta i textboxen för golvyta osv.

Jag har för detta ändamålet skapat ett nytt formulär, (frm2), med en textbox där man anger rumsnumret , nu till själva frågan.

 

  1. Hur skriver man koden där VBA söker upp jag rumsnumret jag anger i textboxen i frm2 att kopiera in data från från samma rad i kalkylbladet till resp. textbox i frm1?
  2. Det skulle även vara önskvärt att med en knapptryckning kunna få upp de rumsdata jag nyss skrivit in och skapat en ny rad med så jag bara kan redigera någon enstaka uppgift och sen är nästa rum klart.

 

Jag har ca 20 st textboxar i frm1 så det hade underlättat väsentligt om detta gick att fixa. Anledningen till att jag vill ha in det i textboxarna är att jag förmodligen behöver kunna justera några siffror innan jag lägger in det i kalkylbladet.

 

Tacksam för tips då jag inte kunnat hitta instruktioner på nätet till detta, vet heller inte riktigt vilka sökord man ska ange.

Mvh Ola

Nytt inlägg
 2016-04-07 14:22
 
1. Lägg in en Sök-knapp i frm2 och koppla denna kod till knappen

Private Sub SearchButton_Click()
Columns("A:A").Select 'Kolumn med rumsnummer
On Error GoTo missing
Selection.Find(What:=Me.TextBox1.Text, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Select
On Error GoTo 0
Me.Hide
'*TODO*
'Lägg till kod för att kopiera in cellerna till rätt textbox (Lägg i egen Sub)
'T.ex...
'frm1.TextBox1.Text = Selection
'frm1.TextBox2.Text = Selection.Offset(0, 1).Value
'frm1.TextBox3.Text = Selection.Offset(0, 2).Value
Exit Sub
missing:
Me.Hide
MsgBox "Hittades inte"
End Sub

2. Se till att spara rumsnumret för den senast sparade posten och se till att detta värde blir default i frm2.TextBox1.Text. Sedan är det bara att klicka på knappen (alltså samma hantering som punkt 1). Rätta det som skall rättas och spara som ny post.

Per, Excelspecialisten
Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBASöka upp värden och returnera till textboxarSöka upp värden och returnera till textboxar

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter