btogan

arkadaşlar merhaba aşağıdaki koddan iki satır cıkarmak istiyorum ama bir türlü yapamadım hep hata veriyorSub Satis() Dim Alan As Range, sat As Range Set Alan = Range("A2:A" & Range("A10").End(xlUp).Row) For Each sat In Alan