-
IT café
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
föccer
nagyúr
válasz Delila_1 #7770 üzenetére
No, itt a végleges, nálam is hibátlanul futó makró
Sub CommandButton1_Click()
Dim AF As AutoFilter
Dim F As Filter
Dim i As Long, usor As Long, C As Long
Sheets("Receptek").Select
Set AF = ActiveSheet.AutoFilter
C = AF.Filters.Count
Range(Cells(2, 1), Cells(2, C)).Value = ""
For i = 1 To AF.Filters.Count
Set F = AF.Filters(i)
If F.On Then
Sheets("Receptek").Cells(2, i).NumberFormat = "@"
Sheets("Receptek").Cells(2, i).Value = F.Criteria1
End If
Next
End SubKöszi a segítséget, nélkületek nem lett volna meg. Soakt tanultam belőle. Most jön a következő feladat
Üdv, föccer
Építésztechnikus. Építőmérnök.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest