spreadsheet' de hesap yaptırma

[mersenne]

Merhaba,excelde hazırladığım bir programım vardı aşağıdaki işlemleri yapan.Aynı işlemleri userform içindeki spreadsheet'de yapabilir miyim?

Kullanıcı excelin açılışında gelen userform içindeki spreadsheet'e veri girecek ve yine userform içindeki butona bastığında bu spreadsheet içindeki verilere aşağıdaki işlemler uygulanacak. Umarım bunun çözümü vardır,şimdiden herkese teşekkürler


Dim k As Integer
k = WorksheetFunction.CountA(Range("c2:c1001"))


For Y = 2 To k + 1
Cells(Y, 4).Value = "=ABS(RC[-2])"
Next




For z = 2 To k + 1
Cells(z, 5).Value = "=ABS(RC[-2])"

Next

Range("D" & 2 & " :" & "E" & k + 1).Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Columns("D:E").Select
Selection.ClearContents
Range("B1").Select

For i = 2 To k
j = j + (((Cells(i + 1, "C") + Cells(i, "C")) * (Cells(i + 1, "B") - Cells(i, "B"))) * 0.5)

 

[mersenne]

Aşağıdaki gibi bir çözüm ürettim, bu site yardımıyla. Spreedsheet'de B ve C kolonlarındaki veriyi aşağıdaki kodlar yardımıyla excel sayfasına aktarıyorum ve önceki mesajımdaki kodları excelde çalıştırıyorum. Belki başkasının da işe yarar.
Eğer daha kısa çözümü olan, daha doğrusu bilgisayarı boşu boşuna fazla yormayacak kod önerisi olan varsa daha iyi olur.


Spreadsheet1.[b1].CurrentRegion.Copy
Sheets("sayfa1").Select

[b1].PasteSpecial
[b1].Select