PNG32 PNG32 PNG32 PNG32
PNG32
Forum Excel, VBA, VSTO, Exceltips, Excelhj�lp PNG32 drivs av Excelspecialisten    Logga in     English
PNG32
PNG32 PNG32
PNG32

Logga in

PNG32

Du är inte inloggad. Logga in eller registrera dig för att skriva inlägg eller svara på inlägg.

För frågor om forumet, kontakta oss på webmaster@excelforum.se

PNG32 PNG32
PNG32 PNG32
PNG32

Excelforum

PNG32

 
ForumForumDiskussionerDiskussionerVBAVBAHjälp med komplementering av kod.Hjälp med komplementering av kod.
Föregående Föregående
 
Nästa Nästa
Nytt inlägg
 2019-09-18 17:17
 

 Hej! Behöver hjälp med att utveckla min kod, har koden nedan som kopierar en rad i t.ex Blad1 om en cell i den raden innehåller ett specifikt värde. Behöver hjälp med att komplementera koden med att den även ska ta med sig första raden i Blad1. Så makrot ska kopiera första raden (A:A) samt kopiera raderna som innehåller ett specifikt cellvärde, i detta fall (yes). Sedan ska allt detta klistras in i Blad2. Tack för hjälpen!

 

Sub CopyYes()

    Dim c As Range

    Dim j As Integer

    Dim Source As Worksheet

    Dim Target As Worksheet

    Set Source = ActiveWorkbook.Worksheets("Blad1")

    Set Target = ActiveWorkbook.Worksheets("Blad2")

 

    j = 1     ' Start copying to row 1 in target sheet

    For Each c In Source.Range("Z1:Z1000")   ' Do 1000 rows

        If c = "yes" Then

           Source.Rows(c.Row).Copy Target.Rows(j)

           j = j + 1

        End If

    Next c

End Sub

 

Nytt inlägg
 2019-09-23 07:56
 
Sub CopyYes()

Dim c As Range

Dim j As Integer

Dim Source As Worksheet

Dim Target As Worksheet

Set Source = ActiveWorkbook.Worksheets("Blad1")

Set Target = ActiveWorkbook.Worksheets("Blad2")



j = 1 ' Start copying to row 1 in target sheet
'Kopierar rad 1 på källbladet, lägger den i rad1 på target sheet
Source.Rows(1).Copy Target.Rows(j)
j = j+1



For Each c In Source.Range("Z2:Z1000") ' Do 1000 rows

If c = "yes" Then

Source.Rows(c.Row).Copy Target.Rows(j)

j = j + 1

End If

Next c

End Sub

Lade till en hårdkodad lösning för att få in dina rubriker (rad1). Ändrade så att för att flytta dina yes, börjar på rad2.

Mvh
Christian



Föregående Föregående
 
Nästa Nästa
ForumForumDiskussionerDiskussionerVBAVBAHjälp med komplementering av kod.Hjälp med komplementering av kod.

PNG32 PNG32
Excelforum drivs av Excelspecialisten som bedriver utbildning i Excel och VBA, tillhandahåller support och hjälp med Excel, utvecklar program i Excel. Är ni i behov av en konsult inom Excel, VBA eller VSTO, eller söker en excelkurs, kontakta oss.
Copyright 2013 ExcelSpecialisten XLS AB   Användarvillkor  Personliga uppgifter