spreadsheet
Tarih
23/04/2010 01:13
Konu Sahibi
winpa
Yorumlar
3
Okunma
951
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



winpa
Üye
Kullanici Avatari
Üye
20
3
23/04/2010
0
İstanbul
Ofis 2003
29/02/2012,21:56
Çözüldü 
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.


Ek Dosyalar
.rar   New Microsoft Excel Worksheet.rar (Dosya Boyutu: 57,68 KB / İndirme Sayısı: 11)
winpa, 23-04-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


ogulcan92
Aktif Üye
Kullanici Avatari
Aktif Üye
1.160
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
Çözüldü 
Sn:winpa
Örneği inceleyiniz.


Ek Dosyalar
.rar   SpereadSheets.rar (Dosya Boyutu: 13,48 KB / İndirme Sayısı: 28)
Cevapla


winpa
Üye
Kullanici Avatari
Üye
20
3
23/04/2010
0
İstanbul
Ofis 2003
29/02/2012,21:56
Çözüldü 
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
winpa, 23-04-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


winpa
Üye
Kullanici Avatari
Üye
20
3
23/04/2010
0
İstanbul
Ofis 2003
29/02/2012,21:56
Çözüldü 
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
winpa, 23-04-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya