çıkarma işlemi hk.

[talebeyim]

Aşağıdaki kodda, 1h isimli sayfadaki A sütunundaki dolu sayı kadar, C sütundaki değeri D sütunundan çıkarıp Sonucu E'ye yazacak. Nerede hata yapıyorum ?

      Set S2 = Sheets("1h")
 
      cikar = S2.Cells(Rows.Count, "A").End(3).Row
        
       With S2.Range("E3:E" & cikar)
        .Formula =  sonuc = ((Range("C") - Range("D"))
        .Value = .Value
    End With

 

[Necdet]

Nerede hata yapıyorum ?

Örnek dosya ekleyip ne yapmak istediğinizi tam olarak anlatamadığınız için hata yapıyorsunuz

 

[talebeyim]

Örnek dosya ekleyip ne yapmak istediğinizi tam olarak anlatamadığınız için hata yapıyorsunuz

bencede sence

 

[talebeyim]

günceldir

 

[talebeyim]

Arkadaşlar Şu çıkarma işleminde yardımcı olabilecekkimse varmı ?