04. oktober 2006 - 16:53Der er
5 kommentarer og 1 løsning
fejl i #reference
Hejsa Jeg bruger en macro til at hente data fra en fil(dhl.dat), som den formatere så det er læseligt - kopiere alle data i min regneark, som jeg køre macroen fra - indsætter postnr - kopier det tilbage i dhl.dat - gemmer det som ruller dhl.xls og mailer det.
Så kommer spørgsmålet - referencen passer ikke, da den ikke kan finde postnr referencen.
Bruger denne formel til at hente postnr - fra mit excel ark. =HVIS(ER.TOM(H2);"";LOPSLAG(H2;postnr!A1:postnr!B1500;2;FALSK))
Brugeren som får tilsendt arket har ikke postnr databasen - Det kan han godt få, men ikke nødevendigt. Jeg har også mulighed for at ligge postnr.xls et centralt sted på en server etc Kan jeg bare få dataene overført. Er villig til at sende regnearket rundt, til yderligere gennemkig. Er åben for nye ideer.
Følgende kode er indsat i Module1 - dette bevirker, at bynavnet bliver bevaret som værdi i cellen (Kolonne I) og formel heri bliver slettet. Mappen gemmes under nyt navn.
Dim xSti, antalræk, række, byNavn Sub KlarTilMail() 'hovedrutine findAktuelleSti gennemløbArket gemSomKlarTilMail End Sub Private Sub findAktuelleSti() xSti = ActiveWorkbook.Path If Right(xSti, 1) <> "\" Then xSti = xSti + "\" End If End Sub Private Sub gennemløbArket() With ActiveWorkbook.Sheets("ruller") antalræk = ActiveCell.SpecialCells(xlLastCell).Row
For række = 1 To antalræk Rem test om der er bynavn i kolonne I If Cells(række, 9) <> "" Then byNavn = Cells(række, 9) 'hent bynavn Cells(række, 9).Formula = "" 'slet formel Cells(række, 9) = byNavn 'indsæt bynavn som værdi Else Cells(række, 9).Formula = "" 'slet formel End If Next række End With End Sub Private Sub gemSomKlarTilMail() With ActiveWorkbook Application.DisplayAlerts = False .Sheets("postnr").Delete 'sletter arket Postnr .SaveAs xSti + "newdhl_TilMail.xls" 'gemmer som ny workbook Application.DisplayAlerts = true End With End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
