How copy just filtered items from table with VBA in Excel
Free templates and templates with code are available for purchase for $50 USD
www.easyexcela...
Addition Templates may be available on request
Click this link to check out my one-on-one training www.calendly.co...
For more help visit my website www.easyexcelanswers.com or email me at easyexcelanswers@gmail.com.
Contact me regarding customizing this template for your needs.
Click for online Excel Consulting www.calendly.co...
Are you struggling to update your Microsoft SQL Server data?
I recommend using well-known Excel to update and manage your data in SQL Server using the SQL Spreads Excel add-in.
Click sqlspreads.com... to find out how SQL Spreads works best for non-technical end users and download our free 14-day trial. You will get two months free when purchasing an annual subscription using our link.
I am able to provide online help on your computer at a reasonable rate.
Check out Crowdcast for creating your webinars
app.linkmink.c...
I use Tube Buddy to help promote my videos
Check them out
www.Tubebuddy....
Follow me on Facebook
/ easyexcel.answers
IG @barbhendersonconsulting
You can help and generate a translation to you own language
www.youtube.com...
*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I've used or have experience with.
How to insert VBA code in Excel • How to insert VBA code...
Sub copyfiltered()
Dim ws, data As Worksheet
Dim r, row As Long
Dim acct, code2 As String
Dim tpe, Name As String
Set ws = Sheet2
Sheet2.UsedRange.Clear
Set data = Sheet1
erow = data.Cells(Rows.Count, 1).End(xlUp).row + 1
r = 2
'c = 1
row = 1
'take data from first page
Do While r (is less than) erow
If data.Rows(r).RowHeight (is greater than) 0 Then
row = row + 1
acct = data.Cells(r, 1).Value
code2 = data.Cells(r, 3).Value
tpe = data.Cells(r, 7).Value
Name = data.Cells(r, 10).Value
ws.Activate
'put it on the second page
ws.Cells(row, 1).Value = acct
ws.Cells(row, 2).Value = code2
ws.Cells(row, 3).Value = tpe
ws.Cells(row, 4).Value = Name
End If
r = r + 1
Loop
End Sub
Негізгі бет How copy just filtered items from table with VBA in Excel
Пікірлер: 2