03. august 2010 - 14:36Der er
7 kommentarer og 1 løsning
Selection.Delete sletter ikke alt? (Excel)
Hej Eksperter,
Under test af en makro, der bl.a. skal konverterer tekst til kolonner, skal jeg sætte de samme grunddata ind flere gange. Første gang jeg sætter ind virker det fint, alle data står rækkervis i sammen celle i kolonne A. Når jeg efterfølgende har brug for at gen-indsætte nye grunddata renser jeg først arket ved at markerer hele arket, deleter v.h.a højre-klik, hvorefter jeg indsætter grunddata i A1. Denne gang formatteres data næsten som den makro jeg tester ville gøre. Hvis jeg renser arket og lukker/gemmer og åbner arket igen fungerer det fint første gang igen.
Det ser ud til at deleten efterlader nogle formatterings oplysninger som indsæt-funktionen benytter.
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Jeg ønsker at kopiere de samme tekst grunddata ind i det samme ark flere gange. Jeg kopiere fra NOTEPAD (CtrlA, CtrlC) og når jeg sætter ind (CtrlV) aflevere jeg i cell A1, så alle står i colonne A. Første gang jeg kopiere ind virker det. Jeg udfører nu nogle test med min makro. På et givet tidspunkt ønsker jeg igen at loade ny grunddata. Jeg starter med at rense arket (Sub Del() fra tidligere). stiller mig i A1 og kopiere grunddata ind. Denne gang bliver grunddata formaterer som om jeg har kørt den "Text to Column" som bl.a. findes i den makro jeg er ved at teste. Det er som om "indsæt" trigger den sidst benyttede "Text to Column".
Da jeg skrev forklaringen gav det mig en ide til hvad jeg evt. kunne søge på, Og det blev "Reset Text to Columns"
Og her kommer løsningen: ' Reset of TEXT TO COLUMNS Parameters by Andy Pope from OzGrig forum Dim rngEmptyCell As Range On Error Resume Next Set rngEmptyCell = ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks).Cells(1, 1) rngEmptyCell.Value = "ABC" rngEmptyCell.TextToColumns Destination:=rngEmptyCell, _ DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=False, _ Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True rngEmptyCell.clear
Man skal tilsyneladende sætte TEXT TO COLUMNS Delimiter-parameter til noget andet end det der benyttes til at konverterer sin egen tekst eller!
Ellers tak for hjælpen.
Venlig hilsen TheSunner
Synes godt om
Ny brugerNybegynder
Din løsning...
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.