prm
10-21-2005, 05:17 AM
Hi,
I have another issue with cross platforming from PC to Mac.
I'm not receiving any errors, but when the form NEXTPRACA1 is loaded it is ignoring the data that should be shown from the sheet "PRACA" in the a3:s3 columns. It just keeps repeating the same data no matter what data is selected. On the PC the range a3:s3 is shown on the form per the data selected. I'm back to the what coding works on PC doesn't necessarily work on a Mac. The form shows perfectly on the Mac but not the data.
Sub TextBox4_Click()
Range("A1:t99").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("u1:u2"), _
CopyToRange:=Range("v1:ao1"), Unique:=False
Range("w2:ao2").Copy
Sheets("PRACA").Select
Range("A3:s3").Select
Selection.PasteSpecial
Sheets("Select").Select
Range("a2:a99").ClearContents
Range("A2").Select
Application.ScreenUpdating = True
NEXTPRACA1.Show
End Sub
Any suggestions would be appreciated.
Thank you,
prm
I have another issue with cross platforming from PC to Mac.
I'm not receiving any errors, but when the form NEXTPRACA1 is loaded it is ignoring the data that should be shown from the sheet "PRACA" in the a3:s3 columns. It just keeps repeating the same data no matter what data is selected. On the PC the range a3:s3 is shown on the form per the data selected. I'm back to the what coding works on PC doesn't necessarily work on a Mac. The form shows perfectly on the Mac but not the data.
Sub TextBox4_Click()
Range("A1:t99").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Range("u1:u2"), _
CopyToRange:=Range("v1:ao1"), Unique:=False
Range("w2:ao2").Copy
Sheets("PRACA").Select
Range("A3:s3").Select
Selection.PasteSpecial
Sheets("Select").Select
Range("a2:a99").ClearContents
Range("A2").Select
Application.ScreenUpdating = True
NEXTPRACA1.Show
End Sub
Any suggestions would be appreciated.
Thank you,
prm