spreadsheet - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: spreadsheet (/konu-spreadsheet.html) |
spreadsheet - winpa - 23/04/2010 Merhaba; Sheet1 sayfasındaki verileri buton yardımı ile spreadsheet1 sayfasına nasıl atabiliriz. Bu konuda yardımlarınızı beklemekteyim. Dosya ek'te mevcuttur. Saygılarımla. Cvp: spreadsheet - ogulcan92 - 23/04/2010 Sn:winpa Örneği inceleyiniz. Cvp: spreadsheet - winpa - 23/04/2010 Sn: Oğulcan Bey; Öncelikle ilginize teşekkür ederim. Gönderdiğiniz örnek için de ayrıca teşekkür ederim. Benim istediğim Excel de ki veriyi spreedsheet atmak multipage sayfasında bulunan herhangi bir butona bastığımda ilk basılan sutun birinci sırayı alacak, diğerleri de alt alta sıralanacak. Copy- paste yöntemiyle yapabiliyorum, fakat herhangi bir butona bastığımda ilk sırayı alması ve diğer butonlara basıldığında alt alta sıralanması konusunda problem yaşamaktayım. Konu ile ilgili yardımlarınızı beklemekteyim. Private Sub CommandButton22_Click() On Error GoTo 10 bul = "K.PATATES" bassat = Range("A2:a250").Find(bul).Row For a = bassat To 250 sonsat = Range("A" & a, "a250").Find(bul).Row Next a 10 If sonsat = 0 Then MsgBox ("ARADIĞINIZ ÜRÜN BULUNAMADI") Exit Sub End If Range("a" & bassat & ":d" & sonsat).Copy With Me.Spreadsheet1.Sheets(1) .Range("a1").Activate .Paste Application.CutCopyMode = False .Range("e1").Value = .Range("c1").Value * .Range("d1").Value End With End Sub Cvp: spreadsheet - winpa - 03/07/2010 Problemi çözdüm. On Error GoTo 10 bul = CommandButton1.Caption bassat = Range("B2:B250").Find(bul).Row For b = bassat To 250 sonsat = Range("B" & b, "b250").Find(bul).Row Next b 10 If sonsat = 0 Then MsgBox ("ARADIĞINIZ ÜRÜN BULUNAMADI") Exit Sub End If Range("B" & bassat & ":F" & sonsat).Copy With Me.Spreadsheet1.Sheets(1) yaz = yaz + 1 .Range("a" & yaz).Activate .Paste Application.CutCopyMode = False .Range("f" & yaz).Value = .Range("c" & yaz).Value * .Range("d" & yaz).Value toplam = toplam + .Range("f" & yaz).Value TextBox4.Value = CDbl(toplam) End With |