CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

Marting Forsker

31. marts 2023 - 16:37 Der er 10 kommentarer

Søger efter :-)

Hej :-)
Er der mon en der kan hjælpe lidt her?

Hvis VB kunne søge efter ”*/*” i fx kolonne E6:E21
Lave en kopi af F6 og ligge ned i F9

Sheets("Ark1").Range("F9").Value = Sheets("Ark1").Range("F6").Value
Så VB søger også efter ”Kopi ->” fra E6:E21

Dur ikke helt :- )

IF E6:E22 ="*/*" Thne
A=A+1
IF E6:E22 ="Kopi - >" Thne
B=B+1
Sheets("Ark1").Range("F+B").Value = Sheets("Ark1").Range("F+A").Value
End
End

Håber der nogen der kan rette op på koden 😊

https://www.dropbox.com/scl/fi/s6p2ymbkrmwokg62w8zgp/IF.xlsx?dl=0&rlkey=8o5xj8yp22dswswen1l91fj1s

Hilsen Martin

Synes godt om

kim1a Ekspert

31. marts 2023 - 21:38 #1

Jeg forstår ikke helt hvad du ønsker. Hvis den finder ”*/*” i f.eks. E17 hvad skal der så ske?
Skal den så flytte F17 tre rækker ned?

Synes godt om

1 synes godt om dette

Keld Broe Seniormester

31. marts 2023 - 21:58 #2

Sub CopyCellValue()
Dim A As Long, B As Long
Dim i As Long
A = 0
B = 0
For i = 6 To 22 'løb gennem rækkerne E6 til E22
If Sheets("Ark1").Cells(i, "E").Value Like "*/*" Then 'hvis cellen indeholder "*/"
A = A + 1 'øg tælleren for antal celler med "*/"
If Sheets("Ark1").Cells(i, "E").Value Like "Kopi ->*" Then 'hvis cellen indeholder "Kopi ->"
B = B + 1 'øg tælleren for antal celler med "Kopi ->"
Sheets("Ark1").Range("F" & B + 8).Value = Sheets("Ark1").Range("F" & A + 5).Value 'kopier cellen fra F6 til F9 og derefter nedad i F10, F11, osv.
End If
End If
Next i
End Sub

Synes godt om

1 synes godt om dette

Marting Forsker

31. marts 2023 - 22:11 #3

Hej Kim1a
Når den finder ”*/*” skal den finde "Kopi - >"

Lad os sige det er E8 = ”*/*” F8 = ”123”

Så skal den finde ” Kopi - >”(som alt tid vil lægge længere nede)

Den er måske i celle E10 der skal den så ligge værdien fra F8 ned i F10

Synes godt om

Marting Forsker

31. marts 2023 - 22:41 #4

Keld Broe >

Jo den vil ikke?

Synes godt om

Marting Forsker

31. marts 2023 - 22:58 #5

kan men ikke se en variabel ? Altså hvad den står i den?

Synes godt om

Tom K. Forsker

01. april 2023 - 12:28 #6

Sub CopyCellIfMatch()
Dim cell As Range

'Loop through cells in column E from row 6 to 21
For Each cell In Range("E6:E21")
'Check if cell value contains "/"
If InStr(1, cell.Value, "/", vbTextCompare) > 0 Then
'Copy cell from column F and paste it into cell F9
Range("F" & cell.Row).Copy Range("F9")
Exit For 'Exit loop if a match is found
End If
Next cell
End Sub

Synes godt om

1 synes godt om dette

Marting Forsker

01. april 2023 - 14:34 #7

Tom K.

Der kopier den fra F6 til F9

Den skulle også gerne kopier de andre med */*
F7 til F10
F13 til F14

Og vider

Ned til den har kørt ned til E21

Hilsen Martin

Synes godt om

Marting Forsker

01. april 2023 - 15:08 #8

Sub a()

Dim a As Long, B As Long

Dim c As String
Dim i As Long

a = 0

For i = 6 To 22

If Sheets("Ark2").Cells(i, "E").Value Like "*/*" Then

c = Sheets("Ark2").Cells(i, "F")

For B = i To 22
If Sheets("Ark2").Cells(B, "E").Value Like "Kopi - >" Then
Debug.Print a
'Label1.Caption = e
Label1.Caption = a & vbCrLf & i & vbCrLf & B & vbCrLf & c

Sheets("Ark2").Cells(B, "F") = c

End If
Next B
c = ""

End If

Next i

End Sub

Den ville heller ikke her helt :-(

Synes godt om

Tom K. Forsker

02. april 2023 - 13:21 #9

Dim i As Long, A As Long, B As Long

For i = 6 To 21
If InStr(1, Sheets("Ark1").Range("E" & i).Value, "*/") > 0 Then
A = A + 1
End If
If Sheets("Ark1").Range("E" & i).Value = "Kopi ->" Then
B = B + 1
Sheets("Ark1").Range("F" & B + 8).Value = Sheets("Ark1").Range("F" & A + 5).Value
End If
Next i

Synes godt om

1 synes godt om dette

Marting Forsker

06. april 2023 - 20:59 #10

Tom K. #9

Hej hmm

Den går ikke helt

der sker ikke noget ?? :-)

Hilsen Martin

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel	3	19/11/202409:39	19/11/202411:51
Addition af celler, som er formatteret "tt.mm" Af FinBalance i Excel	5	18/11/202414:14	19/11/202414:11

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS