worksheet change özelliği

[nihatra]

excel çalışma sayfasında worksheet change kullanılarak
A1=3 ise F1=3-A2=2 ise F2=2-A3=4 ise F3=4......... gibi (rakamlar örnektir değişir)değişik rakamlar A750'ye kadar nasıl yapabilirim.worksheet change kullanılarak her satır için ayrı yazarak çok uzun oluyor.kısa bir formül istiyorum.a1 deki rakam silinince f1 deki rakamda silinecek.şimdiden teşekkürler.

 

[06eed]

z=0
for each i in range("A1:A750")
z=z+1
i.value="F" & z & "-" & i.value
next i

Change özelliğine yazıp deneyiniz.

 

[06eed]

F sütununa aşağıdaki formülü girin.

=EĞER(A1="";"";A1)

 

[06eed]

Kodlarla yapmak için;

Dim k
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.Column <> 1 Or k = True Then Exit Sub
If ActiveCell.Row > 1 Then
k = True
ActiveCell.Offset(-1, 5) = ActiveCell.Offset(-1, 0)
End If
ActiveCell.Offset(0, 5) = ActiveCell.Offset(0, 0)
ActiveCell.Offset(1, 5) = ActiveCell.Offset(1, 0)
ActiveCell.Offset(0, 1).Select
k = False
End Sub

 

[meslan]

Merhaba, Sayfa sekmesinde sa&#287; t&#305;kla > kod g&#246;r&#252;nt&#252;le ve bu kodlar&#305; oraya uygula.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1:A750]) Is Nothing Then Exit Sub
If Cells(Target.Row, "A").Value <> "" Then Cells(Target.Row, "F").Value = Cells(Target.Row, "A").Value
If Cells(Target.Row, "A").Value = "" Then Cells(Target.Row, "f").Value = ""
End Sub