Dansk Regneark Forum
  Hjælp Hjælp  Søg i forum   Arrangementer   Opret ny bruger Opret ny bruger  Log ind Log ind


Emne lukketExcel skal reagere på et bogstav fra celle

 Besvar Besvar
Forfatter
tingen Se dropdown
Forum Begynder
Forum Begynder


Medlem: 20.Okt.2010
Status: Offline
Point: 10
Direkte link til dette indlæg Emne: Excel skal reagere på et bogstav fra celle
    Sendt: 10.Mar.2011 kl. 14:09
Hej excel forum

Jeg står med en opgave, som mangler lidt kreativ hjælp fra jer af =)
På mit screenshot her, er cellen G18 fyldt ud med et rødt "S", jeg skal bruge VBA editoren til at få arket til at reagere hver gang der er et "S" i celle-rækken "G", det skal så lave en understreg hele vejen, som på billedet.

Tak

Hilsen tingen


Til top



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 10.Mar.2011 kl. 22:34
Hej tingen,
 
VBA er en mulighed, men i dette tilfælde vil jeg anbefale betinget formatering i stedet.
 
Prøv at sætte S'er i G kolonnen inden for rammen.
Kan det løse din udfordring?
 
//Allan
Til top
tingen Se dropdown
Forum Begynder
Forum Begynder


Medlem: 20.Okt.2010
Status: Offline
Point: 10
Direkte link til dette indlæg Sendt: 11.Mar.2011 kl. 08:54
Jo tak det virker fint, men problemet er bare at data'en som kommer ind i cellerne, kommer fra et andet program.
Så jeg skal også opdatere cellerne før det træder i kraft (Har før lavet en macro der klikker "f2, tab".
Men ved ikke om der er en nemmere måde at gøre det på?
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 11.Mar.2011 kl. 11:35
Hej igen,
 
OK, så får du en lille kodestump Smile
 
Denne kode 'leder' efter S i kolonne G i området G14:G100
Hvis den støder på et S, laves en tyk sort kant forneden i kolonne G og ud til og med kolonne J
 
Sub Betinget_Understreg()
For Each S In Range("G14:G100").Cells
If S = "S" Then
    With Range("G" & S.Row & ":J" & S.Row).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlMedium
    End With
End If
Next S
End Sub
 
Er det bedre?
Vi kan evt rette den til at fjerne eksisterende streger først.
 
//Allan
Til top
tingen Se dropdown
Forum Begynder
Forum Begynder


Medlem: 20.Okt.2010
Status: Offline
Point: 10
Direkte link til dette indlæg Sendt: 11.Mar.2011 kl. 14:43
Hmm jeg har fået prøvet lidt af nu, og det kommer ikke til at hænge så godt sammen.
Det er nemlig en stor excel rapport med flere ark, og den macro der laver lidt bøvl. Tror problemer ligger i at dataen kommer ind i excel arket FØR macro'erne kører, men det kan ikke komme ind på anden måde pga. det skal være et dynamisk excel ark, som former sig efter hvor meget data der bliver kastet ind :)

- Af en eller anden grund virker 'betinget formatering' ikke, kun hvis man taster "S" manuelt ind.

Hmm ved ikke hvordan man nemmest kan få det lavet på, gennem VBA, eller betinget formatering?


Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 11.Mar.2011 kl. 14:49
Har du mulighed for at uploade dit ark til forummet?
 
//Allan
Til top
tingen Se dropdown
Forum Begynder
Forum Begynder


Medlem: 20.Okt.2010
Status: Offline
Point: 10
Direkte link til dette indlæg Sendt: 14.Mar.2011 kl. 09:14
http://www.mediafire.com/?rlk2umrkrn33w3k

Jeg har uploaded filen til mediafire, håber det er fint nok :)
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 15.Mar.2011 kl. 17:24
Jeg kan godt lave funktionen som reagerer på et S, men det ville være bedst hvis der var data i dit ark så jeg kan se hvorfor den betingede formatering ikke virker uden at du taster i cellen.
 
Har du lidt data du kan fylde i, så S'erne står der?
 
//Allan
Til top
tingen Se dropdown
Forum Begynder
Forum Begynder


Medlem: 20.Okt.2010
Status: Offline
Point: 10
Direkte link til dette indlæg Sendt: 16.Mar.2011 kl. 08:14
uploads/102/Kalenderark.xls

Sådan her kommer det til at se ud med data i =)
Bare sig til hvis der er mere du skal bruge, glæder mig til at lære lidt hehe



Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 16.Mar.2011 kl. 13:54
Hej igen,
 
Jeg har lavet dig et eksempel, med betinget formatering.
Kig den lige an, jeg tror denne kan klare din udfordring.
 
//Allan
Til top
tingen Se dropdown
Forum Begynder
Forum Begynder


Medlem: 20.Okt.2010
Status: Offline
Point: 10
Direkte link til dette indlæg Sendt: 16.Mar.2011 kl. 15:27
Mange tak, det virker perfekt nu!

Tak for hjælpen

tingen over and out
Til top
Allan Se dropdown
Forum Admin
Forum Admin
Avatar
Forum Admin

Medlem: 03.Feb.2010
Land: Danmark
Status: Offline
Point: 10330
Direkte link til dette indlæg Sendt: 16.Mar.2011 kl. 15:38
Velbekomme tingen, tak for din tilbagemelding.
Læg mærke til at den betingede formatering er baseret på en formel, hvor kolonne er absolut (Med $) og rækker er relativ.
På den måde kan du styre at hele rækken får en understreg og ikke blot cellen med S'et.
 
//Allan
Til top
 Besvar Besvar

Skift forum Forum tilladelser Se dropdown

© 2010 - 2024 Dansk Regneark Forum - en del af Excel-regneark.dk