Posts by zmagic

HI,

I want to delete un-required rows from my workbook and those with CCODE -/00***/ must stay and other rows to get deleted.

There are more than 1000 rows and I want to clean them up.

Quote

Hi,

Thanks its working, one issue if data last line and Record Only in-between blank line then this codes skips. I am thinking if suppose in future this happens then?

Hi,

Sample Workbook attached.

Thanks.

On sheet1, In column D, If any of the cells contains "Record Only" I need it to delete the entire row along with next 15 decending rows to be delete.

Thanks.

Quote from Carim

Once you have tested the Pivot Table ... feel free to share your comments ...

Thanks, it's simple and result oriented.

Thankyou.

Hi,

I have a huge database, I want to find the duplicates from Column D (type characters/names) along with data from Column F & H.

How to create a pivot table report of duplicates and data of column F & H. Sample data file attached.

Thanks.

Re: Create Summary and Report from text file

Quote from jindon;758607

Upload a txt file, I only work with uploaded file.

Text file uploaded for testing i have made rows empty.

Quote

Location Code : 2 Area Remote 1
Location Total : No of Records :

Location Code : 400 Area Remote 3
Location Total : No of Records :

.Value = Application.Index(a, 0, 0)

Runtime error '13:' Type mismatch.

Please have a look.

Re: Create Summary and Report from text file

Hi,
Sorry for delay reply.
Thanks Jindon for the script.

Jindon, on testing in summary suppose row of Location Total is empty then report gets corrupted. Please provide a solution.

Quote

|-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|
| Location Total : No of Records : | | |
|-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|

.Cells(1).Value = "RUN DATE :" & Date

This date to be appended from text file first line dd/mm/yyyy.

Thanks in advance.

Re: Create Summary and Report from text file

Quote from jindon;758302

How do you want it?

Thankyou Jindon for the response.

I requested for details report, requirement is described in sheet1 of Test.xls.
If possible please get the details report in sheet1 from text file along with summary in sheet2.
Attached Test.xls.

Thanks in advance.

Re: Create Summary and Report from text file

Hello,

Cytop, I apologize & updated the first post.

Jindon, Thanks for creation of summary, I am highly obliged. Please can i have the details of text file also in excel sheet for details cross check.
The details are not getting formatted / aligned in cells with option Data-->From Text if i import.
The Details Report is also required.

Thanks in advance.

Hello,

I recorded the macro to import large text file but unable to align it to cells, I need this macro to import text file on regular basis and create a summary of it.
Please some one help with macro to import and create summary from it. The sample text and excel workbook is attached.
Thanks in advance.

Question posted in other forum link: http://windowssecrets.com/foru…t-File-and-Create-Summary

Re: Delete First line of Text file and Import

Hello,

Thanks apo i am HIGHLY IMPRESSED[FONT=arial, sans-serif].

Many Thanks[/FONT]

Re: Delete First line of Text file and Import

Thanks Windy58 for reply.

Infact you suggestion will work when single file is imported, but mine is multiply text file import.
So i thought it.

Thanks.

Hello,

Is it possible to delete the first line of the text file and then import it in excel sheet, in a single go.

Thanks.

Hi,

I want to confine/limit the Columns from A to J and if after J columns having data to be transposed to column D.
If particular row column data transposed to Column D then copy the Column A,B & C to that new row which has transpose data in column D.

col :: A--B--C--D--E--F--G--H--I--J--K--L--M---N
Data: X--Y--Z--1--2--3--4---5--6--7--8--9--10--11

After Transpose.

col :: A--B--C--D--E--F---G--H--I--J--K--L--M---N
Data: X--Y--Z--1--2--3----4---5--6--7
-----: X--Y--Z--8--9--10--11

Is that possible to transpose with a macro.
Thanks

Hello,

I want to place decimal in this 550000 so that it becomes 5500.00

.Columns("f").NumberFormat = ??

8500000===85000.00
1073500===10735.00
269700=====2697.00
421360=====4213.60

Re: Changing the printer in the loop

Quote from TheGlovner;689021

Can you show me the starting format of the data in situ and then show me in another sheet(s) how you expect the print out to look, just so I can make sure I understand what you are trying to do exactly.

Thanks for the response, Please have look to my uploaded sample excel file.

Re: Changing the printer in the loop

Quote from TheGlovner;688862

So you should be able to amend your code to fit inside that template and it should hopefully give you what you are after.
Cheers!

Thanks for the response,
I tried to amend it into my codes but unsuccessful to obtain the result, I request you if you can help me to do that.

Hi,

How do i loop/toggle the printer to switch from Col A1 to B1 then to A2,B2 / A3,B3.... consecutively/parallel for printing.

The codes are printing the column 'A' competely & then shifts to Column 'B' instead of that is it possible to shift alternate after every row. Starting Col A2 then Col B2 next Col A3, B3 this will print consecutively/parallel at a time.

Option Explicit
' Printer names
Const Prin1 As String = "HP LaserJet Professional M1213nf MFP"
Const Prin2 As String = "HP LaserJet P1106"
Const AcroPath As String = "C:\Program Files\Adobe\Reader 11.0\Reader\AcroRd32.exe"


Private Declare Function SetDefaultPrinter Lib "winspool.drv" _
Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long


Sub Sample()
    Dim ws As Worksheet
    Dim lRow As Long, i  As Long
    Dim prt As String


    'Get current default printer
    prt = Application.ActivePrinter


    'Set this to the relevant sheet
    Set ws = ThisWorkbook.Sheets("Sheet1")


    With ws
        ' Get last row of col A
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row


        '~~> Set default printer
        SetDefaultPrinter Prin1


        'Print from Col A first
        For i = 1 To lRow
            Shell """" & AcroPath & """/n /t """ & .Range("A" & i).Value & """"
            DoEvents
        Next i


        'Get last row of col B
        lRow = .Range("B" & .Rows.Count).End(xlUp).Row


        'Set default printer
        SetDefaultPrinter Prin2


        'Print from Col B Next
        For i = 1 To lRow
            Shell """" & AcroPath & """/n /t """ & .Range("B" & i).Value & """"
            DoEvents
        Next i
    End With


    SetDefaultPrinter prt
End Sub

Re: Move Rows after a condition

Thanks Mumps.It's 100%.