Veri alttoplam

[EmirhanG]

Merhaba arkadaşlar. Yardımcı olursanız sevinirim konuyu ekte anlatmayaçalıştım ilgilenen arkadaşlara şimdiden teşekürler....

 

[EmirhanG]

Arkadaşlar konu hakkında bilgilerinizi bekliyorum.Teşekürler....

 

[Ferhat Pazarçevirdi]

Kodunuz aşağıdaki gibi değiştiriniz.

 Private Sub UserForm_Initialize()
Sheets("sayfa1").Select
[a1:J200].Select
Selection.Copy
Spreadsheet1.[a1].Paste
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
Spreadsheet1.[a:J].EntireColumn.AutoFit
Application.CutCopyMode = False
Spreadsheet1.[a1].Select
Spreadsheet1.[a1:J1].AutoFilter
Spreadsheet1.ActiveWindow.ViewableRange = "a1:J" & [A65536].End(3).Row + 1
If Spreadsheet1.Height < 156 Then Spreadsheet1.Height = Spreadsheet1.Range("a1:a" & [A65536].End(3).Row).Height
Spreadsheet1.Width = Spreadsheet1.[a1:J1].Width + 16
son = Spreadsheet1.[A65536].End(xlUp).Row
Spreadsheet1.Range("A" & son + 1) = "Alt Toplam"
Spreadsheet1.Range("D" & son + 1).Formula = "=SUBTOTAL(9,D2:D" & son & ")"
Spreadsheet1.Range("F" & son + 1).Formula = "=SUBTOTAL(9,F2:F" & son & ")"
Spreadsheet1.Range("H" & son + 1).Formula = "=SUBTOTAL(9,H2:H" & son & ")"
Spreadsheet1.Range("I" & son + 1).Formula = "=SUBTOTAL(9,I2:I" & son & ")"
Spreadsheet1.Range("J" & son + 1).Formula = "=SUBTOTAL(9,J2:J" & son & ")"
End Sub

 

[EmirhanG]

Teşekürler arkadaş rica etsem textbox'lardada alttoplamları veren koduda yazarmısın mümkünse tabiki. İlgi ve alakan için tekrardan teşekürler ederim

 

[Ferhat Pazarçevirdi]

Userform1'in kod sayfasının en üst satırına;

Dim son As Integer

yazın.

Daha sonra ilgili kodları; aşağıdaki gibi revize edin.

Private Sub Spreadsheet1_SheetChange(ByVal Sh As OWC11.Worksheet, ByVal Target As OWC11.Range)
adr = Spreadsheet1.ActiveCell.Address
Range(adr) = Spreadsheet1.ActiveCell
With Spreadsheet1
     Me.TextBox1.Text = Format(.Range("D" & son + 1), "#,##0")
     Me.TextBox2.Text = Format(.Range("E" & son + 1), "#,##0")
     Me.TextBox3.Text = Format(.Range("F" & son + 1), "#,##0")
     Me.TextBox4.Text = Format(.Range("H" & son + 1), "#,##0.00")
     Me.TextBox5.Text = Format(.Range("I" & son + 1), "#,##0.00")
     Me.TextBox6.Text = Format(.Range("J" & son + 1), "#,##0.00")
End With
End Sub

ve

Private Sub UserForm_Initialize()
Sheets("sayfa1").Select
[a1:J200].Select
Selection.Copy
Spreadsheet1.[a1].Paste
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(0, 1).Select
Loop
Spreadsheet1.[a:J].EntireColumn.AutoFit
Application.CutCopyMode = False
Spreadsheet1.[a1].Select
Spreadsheet1.[a1:J1].AutoFilter
Spreadsheet1.ActiveWindow.ViewableRange = "a1:J" & [A65536].End(3).Row + 1
If Spreadsheet1.Height < 156 Then Spreadsheet1.Height = Spreadsheet1.Range("a1:a" & [A65536].End(3).Row).Height
Spreadsheet1.Width = Spreadsheet1.[a1:J1].Width + 16
son = Spreadsheet1.[A65536].End(xlUp).Row
For Each x In Me.Controls
   If TypeName(x) = "TextBox" Then: x.TextAlign = fmTextAlignRight
Next x
With Spreadsheet1
    .Range("A" & son + 1) = "Alt Toplam"
    .Range("D" & son + 1).Formula = "=SUBTOTAL(9,D2:D" & son & ")"
    .Range("E" & son + 1).Formula = "=SUBTOTAL(9,E2:E" & son & ")"
    .Range("F" & son + 1).Formula = "=SUBTOTAL(9,F2:F" & son & ")"
    .Range("H" & son + 1).Formula = "=SUBTOTAL(9,H2:H" & son & ")"
    .Range("I" & son + 1).Formula = "=SUBTOTAL(9,I2:I" & son & ")"
    .Range("J" & son + 1).Formula = "=SUBTOTAL(9,J2:J" & son & ")"
End With
End Sub

 

[EmirhanG]

Çokkk teşekür ederim arkadaş, vallahi tam istediğim gibi oldu oysa okadar uğraşmış yapamamıştım, bilmek güzel şey gerçekten ,ellerine sağlık tekrardan teşekür ederim........:hihoho: :hihoho: :hihoho: