Posts by k61sh

Please Guys

Hi all,

How are u guys.

I stuck up in one issue but i didn't got solution, can u guy's help me.

I need to pull the data from pivot table to vba ( Combo box and Textbox ).

need is i want to change the data in combo box and start and End date in textbox, that pivot table should change need output in graph.

Can u please Help me on this

Template is attached.

After clicking on Edit button

I had not changed anything bro please check the image

No its not working for me.

its showing error = " Method Range of object Worksheet Failed"

its in userform only i had attached label31

Hi All

Im using same code what u given for Edit data from userform.at that time its working fine.

Now i used login code what u given, in that function this code will not work for Edit.

can u please check and do the needful

its showing error = " Method Range of object Worksheet Failed"

Please go through the attachment

Thanks

Okay Done Thanks for ur help

Quote from royUK

I can't tell what the problem from seeing your code which doesn't use the RowSource Property. Check in the ListBox's Properties whether the RowSource is already set

No Not set in List box Rowsource

OHh

i need only the RowSource - In listbox

Error is -Couldn't set the RowSource Property.

The workbook having some confidential matter.

u can suggest in code i will adjust that

Thank u

Set ws1 = Sheet4

rrow = ws1.Cells(Rows.Count, 1).End(xlUp).row
ary1 = ws1.Range("A2:o" & rrow).Value2

rctr = 1
For j = 1 To UBound(ary1)
If ary1(j, 1) = UserForm7.TextBox1.Value Then
rctr = rctr + 1
End If
Next j
ReDim ary2(1 To rctr, 1 To 15)
ctr = 1
For j = 1 To UBound(ary1)
If ary1(j, 1) = UserForm7.TextBox1.Value Then
ary2(ctr, 1) = ary1(j, 1)
ary2(ctr, 2) = ary1(j, 2)
ary2(ctr, 3) = ary1(j, 3)
ary2(ctr, 4) = ary1(j, 4)
ary2(ctr, 5) = ary1(j, 5)
ary2(ctr, 6) = ary1(j, 6)
ary2(ctr, 7) = ary1(j, 7)
ary2(ctr, 8) = ary1(j, 8)
ary2(ctr, 9) = ary1(j, 9)
ary2(ctr, 10) = ary1(j, 10)
ary2(ctr, 11) = ary1(j, 11)
ary2(ctr, 12) = ary1(j, 12)
ary2(ctr, 13) = ary1(j, 13)
ary2(ctr, 14) = ary1(j, 14)
ary2(ctr, 15) = ary1(j, 15)

ctr = ctr + 1
End If
Next j


With UserForm7.ListBox2

.ColumnCount = 15

.ColumnWidths = "120,150,90,95,90,45,45,45,45,45,45,45,120,95,90"

.List = ary2
 
For lx = 0 To ctr - 2
.Column(13, lx) = Format(.Column(13, lx), ("0%"))
.Column(2, lx) = Format(.Column(2, lx), ("dd-mm-yyyy"))
.Column(3, lx) = Format(.Column(3, lx), ("dd-mm-yyyy"))
Next lx
End With

Please check the code Rowsource property is not set - If i set means it shows "couldn't set rowsource property. please give suggestion

okay

Quote from royUK

Is the pdf folder empty before running the macro?

YES its empty

Okay will check thanks for ur response

Whats the issue bro

Okay Please check

I had already created that.

please see the picture

wsNew.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & Application.PathSeparator & "PDF" & Application.PathSeparator & sNm & ".pdf", _
 OpenAfterPublish:=True

Line got error .

Invalid Procedure call or argument

Is there any chance to complete this task