Avatar billede 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
Avatar billede 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?
Avatar billede 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
Avatar billede 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
Avatar billede Marting Forsker
31. marts 2023 - 22:41 #4
Keld Broe >

Jo den vil ikke?
Avatar billede Marting Forsker
31. marts 2023 - 22:58 #5
kan men ikke se en variabel ? Altså  hvad den står i den?
Avatar billede 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
Avatar billede 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
Avatar billede 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 :-(
Avatar billede 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
Avatar billede Marting Forsker
06. april 2023 - 20:59 #10
Tom K. #9


Hej hmm

Den går ikke helt

der sker ikke noget ??  :-)

Hilsen Martin
Avatar billede 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.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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