Törölt nick
2011.09.12
|
|
0 0
16064
|
Bocs, ez nem volt egészen jó. Ez a helyes kód:
Dim r As Range Set r = Worksheets("Munka1").Range("E" & Rows.Count).End(xlUp).Offset(1) If checkbox1.Value = True Then r = 1 Else r.ClearContents End If
Csak nem volt kedvem form-mal bajlódni, ezért a teszteléshez cellaként deklaráltam a checkbox1-et. Ami a felhasználást illeti, a Dim kezdetű sort a szubrutin elejére kell tenni, a többivel pedig helyettesítsd azt a két sort, amit 16049-ben beküldtél.
|
Előzmény: kovacsmiklos1985 (16061)
|
|