Flytta cell till en kolumn genom att ange kolumnrubriken

[soreby]

Hej!

 

Jag skulle vilja lägga in i en vba kod att cellen ska flytta sig till en kolumn genom att känna igen rubriken, inte kolumnreferensen och sedan gå ner till första lediga raden. Problemet är att det kommer vara olika många rader varje gång, och olika antal kolumner, därav problemet med att jag inte kan ange kolumnreferenser som t.ex. "k:k". Kommer inte på hur jag ska göra...... Vore riktigt schysst om någon orkar hjälpa mig med detta

 

[Monshi]

    Dim c As Range
   Dim target As Range
   Set c = Blad1.Rows(1).Find(What:="f", Lookat:=xlWhole)
   If c Is Nothing Then Exit Sub
   Set target = c.End(xlDown).Offset(1, 0)

 

Givet då att det finns minst TVÅ värden, dev rubrik och ett värde, i den kolumn under den rad som sökningen gjorts på annars blir det fel. Dessutom får det inte finnas några tomma poster i kolumnen innan sista cellen i den så att säga.

 

Hänger du med?

 

(JoGi Edit5)

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

 

[inlägget ändrat 2007-12-10 14:23:03 av JoGi]