Posts by sekar_r24

Hi.,

is it possible to filter each unique value, say a1, and copy the corresponding filtered values, sum up the values.

Similarly all the values a2, a3, and a4 are filtered out and copy their corresponding values and sum up..?

How to iterate the values a1, a2, a3 and a4 in autofilter criteria?

Thanks!. Works perfect.

HI.,

i am trying to copy & paste the range of columns to two columns with specified criteria., Attached herewith the code so far.

the table consist of 6 columns. the first four columns are code nos with corresponding value in the last two column. i am trying to populate the following.

1. first column to be placed in a certain location.
2. the second column to be placed below the first column.
3. the third column below the second column
4. the fourth column below the third column.
5. The value in the fifth column to be placed next column of the first column placed in sl.no:01
6. the same value is placed again below the values pasted in the sl.no:5.
7. The value in the sixth column to be placed below the sl.no:06
8. the same value (sixth column) is placed again below the values pasted in the sl.no:7

the code i tried below, able to achieve upto sl.no:6

Public Sub edgeband()
Dim x As Integer
Dim y As Integer ' column variable
Dim k As Integer ' column variable
Dim m As Integer ' column variable
Dim lngLastRow As Long
Dim lngLast As Long
m = 14
'to find the last row in the column.
'lry = Cells.Find("*", Cells(1, 1), xlFormulas, xlPart, xlByRows,xlPrevious, False).Row
lngLastRow = Cells(Rows.Count, "F").End(xlUp).Row
 Z = 13 ' destination column
 x = 3 'row no
y = 6 ' column no
k = 3
' toclear the last row
For y = 6 To 9
Range(Cells(x, y), Cells(lngLastRow, y)).Copy
Cells(k, Z).PasteSpecial xlPasteValues ' destination column
k = Cells(Rows.Count, Z).End(xlUp).Row + 1
Next y
Z = Z + 1
k = 3
For m = m To m + 2
Range(Cells(k, y), Cells(lngLastRow, y)).Copy
Cells(k, Z).PasteSpecial xlPasteValues
k = Cells(Rows.Count, Z).End(xlUp).Row + 1
Cells(k, Z).PasteSpecial xlPasteValues
y = y + 1
m = m + 1
x = 3
k = Cells(Rows.Count, Z).End(xlUp).Row + 1
Next m
Application.CutCopyMode = False[attach=1228611][/attach]
End Sub

hi justin.,

Works fine. Thanks.

Hi jolivanes

Perfect. Kudos.!

HI.,

i am having a column (assume in B Column) with values of different string. I would like to find out string in the range ex: _formatversion = 1.0 and shift 3 rows down wherever the occurrences are found. i tried this below code. but unsuccessful.

Could anyone help.

Sub MoveCell()
 Dim MyRange, cell As Range
 Set MyRange = ActiveSheet.Range("B1", Range("B65536").End(xlUp))
 For Each cell In MyRange
 
 If cell.Value = "_formatversion = 1.0" Then
 ActiveCell.Range (cell.Value)
 Selection.Insert Shift:=xlDown
 End If
 Next cell
End Sub

Hi.,

I am trying to create name list for a column. my values are in Column A up to 10 rows, i would like to assign name in B column corresponding rows. For ex: for LenZ in R1C1, the list name in R1C2, should be LenZ ( ie same name). i tried a lot but unable to increment the R1C1 value. Can anyone help on this.

Sub kre3()
Dim rw As Integer, cl As Integer

rw = 1
cl = 2
If rw = 10 Then    ActiveWorkbook.Names.Add Name:=Cells(rw, 1), RefersToR1C1:="=Sheet1!R[" & rw & "]C[" & cl & "]"
rw = rw + 1
End If End Sub