|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
 |
 |
|
|
|
|
|
 | | |
| | |
| | |
| | |
 | | |
|
|
| StefanJ |
Medlem sedan: 2017-08-18
16 inlägg
|
|
|
Hej
Jag undrar om någon vänlig själ som har bra koll på pivottabeller skulle kunna svara mig på följande fråga:
Om jag t ex har ett medlemsregister i en excelfil som blir källdatan. Där finns en massa kolumner med Namn, adress, postadress, tel nr osv. Ca 30 kolumner.
Så gör jag en pivottabell av detta och där visar jag t ex bara 8 rubrikfält
och så har jag ett rapportfilter som t ex visar vilket lag som medlemmen tillhör.
När jag då får fram denna lista så undrar jag om det finns någon möjlighet att redigera t ex telefonnumret i pivottabellslistan och uppdatera tillbaks det nya värdet direkt till källdatan,
istället för att behöva leta upp medlemmen i den stora källdatalistan och där ändra värdet.
Helt enkelt "Måste alla data ändras i källdatan, eller kan man låta källdatan uppdateras genom redigering av ett värde i pivottabellen. Hoppas ni förstår vad jag menar.
Tacksam för återkoppling.
|
|
|
|
| |
|
| lasse67 |
Medlem sedan: 2017-01-11
109 inlägg
|
|
|
Hej
mig veterligen så går det inte. pivot hämtar ju all data ifrån källdatan. men nån kanske vet.
men ett tips. tryck Ctrl+B då får du fram sökrutan sedan så kopiera du in värdet i sökfältet och går till källdatan och tryck på sök så hittar du numret som du vill ändra eller värdet. tar tre sekunder att hitta det. och vips så är pivottabellen uppdaterad.
ett förslag bara.
lasse
|
|
|
|
| |
|
| StefanJ |
Medlem sedan: 2017-08-18
16 inlägg
|
|
|
Jag tackar för tipset, som kan vara en möjlig väg att förenkla justeringen, då jag inte heller tror att det går att "uppdatera bakåt"
|
|
|
|
| |
|
| Christian |
Medlem sedan: 2015-08-26
1216 inlägg
|
|
|
Hej hej
skrev ihop lite kod. Tryck alt f11 för att gå in i vba editorn, lägg in koden på det blad som motsvarar där din pivottabell ligger. (projektfönstret).
Gör om din källdata till en tabell(markera allt, tryck ctrl+t), döp den till tblsData.
Gå igenom kommentarerna... Lycka till!
mvh
Christian
Option Explicit
Private Sub Worksheet_Change(ByVal target As Range)
Dim ws As Worksheet
Set ws = Blad3
Dim sData As ListObject
Set sData = ws.ListObjects("tblsData")
'cells(target.Row, 5) läser in vad som står på din editerade rad(i pivottabellen) i kolumn 5.
'kolumn 5 måste motsvara unik förekomst i din databas. Exempelvis ett personnummer, anställningsnummer eller dyl.
'Ändra så att det passar med din pivot.
Dim SearchString As String
SearchString = Cells(target.Row, 5).Value
'Denna hittar cellen som matchar ditt sökvärde i källdata
Dim sRange As Range
Set sRange = sData.DataBodyRange.Find(What:=SearchString)
M:
'Anpassa meddelandet så att siffrorna motsvarar rätt kolumner i databasen
Dim userin As Integer
userin = InputBox("vilken kolumn vill du skriva till i källdata" & vbNewLine & "1 = förNamn" & vbNewLine & "2 = Efternamn" & _
vbNewLine & "3 = telefonnummer")
If IsNumeric(userin) Then
sRange.Offset(0, userin).Value = target.Value
Else
MsgBox ("skriv ett tal")
GoTo M:
End If
'Nedan kod väljer den ändrade cellen så att du kan granska att det blev rätt, den kan du ta bort när du känner dig trygg :)
Dim usrAdress As String
usrAdress = sRange.Offset(0, userin).Address
ws.Activate
ws.Range(usrAdress).Select
End Sub
|
|
|
|
| |
|
| StefanJ |
Medlem sedan: 2017-08-18
16 inlägg
|
|
|
Tack så mycket för ditt svar och hjälp.
Jag fick inte till det direkt när jag gjorde det, men klurar nog ut det om jag pillar lite.
Återkommer om jag behöver fråga lite mer,
men har just nu ett annat problem jag behöver få löst så jag skapar en nytt ämne om det.
Tack tills vidare.
|
|
|
|
| |
| | |
| | |
| | |
|
|
|
|
|
|
 |
|
 |
|
|
|
|
|
|
|
|
|
|