Sayfalar arası veri aktarımı

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Sayfalar arası veri aktarımı

İleti#1)  enisoruc » 16 Tem 2018 16:10

Merhaba,
Hazırlamaya çalıştığım demirbaş dosyasında aşağıdaki sayfalar var;
DTO (Gönderilecek demirbaş bilgilerinin hazırlandığı sayfa),
DTO_D (Data sayfası) ve
DTO_P (Teslim formu sayfası)

Yapmak istediğim DTO sayfasında oluşan listenin DTO_P sayfasındaki yazdır butonuna basıldıktan sonra DTO_D sayfasına her yeni kayıt için alt alta eklenmesi ve DTO_P sayfasının sayfa ön izlemeye yönlendirilmesi.

Değerli yardımlarınızı rica ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
enisoruc
Yeni Başlamış
 
Adı Soyadı:enis oruç
Kayıt: 27 May 2010 10:47
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Sayfalar arası veri aktarımı

İleti#2)  metehan8001 » 16 Tem 2018 17:35

Dosyanıza bir kaç veri eklerseniz. Daha sağlıklı çalışma olacaktır bizim için.
Kullanıcı avatarı
metehan8001
Siteye Alışmış
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 10:30
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

Cevap: Sayfalar arası veri aktarımı

İleti#3)  enisoruc » 16 Tem 2018 18:01

Merhaba,
Data eklenmiş hali ektedir.

Teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
enisoruc
Yeni Başlamış
 
Adı Soyadı:enis oruç
Kayıt: 27 May 2010 10:47
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Sayfalar arası veri aktarımı

İleti#4)  metehan8001 » 16 Tem 2018 19:07

Veri eklemenizi isterken ne nerede nasıl olacak anlamında söylemiştim.

Ben yinede dosyayı anladığım gibi hazırladım. Dosyanızın son hali ektedir.
Kolay gelsin.

Kod: Tümünü seç
Sub Aktar()

Set dto = Sheets("DTO")
Set dtp = Sheets("DTO_P")
Set DTd = Sheets("DTO_D ")
dtoson = dto.Cells(Rows.Count, 1).End(xlUp).Row
dtdson = DTd.Cells(Rows.Count, 2).End(xlUp).Row

'=============================================
dtp.Cells(8, 4) = dto.Cells(7, 11) 'plaka
dtp.Cells(11, 4) = dto.Cells(7, 1) ' tarih
dtp.Cells(12, 4) = dto.Cells(7, 10) ' teslim alan
son = 15
For i = 7 To dtoson
dtp.Cells(son, 2) = dto.Cells(i, 2).Value 'demirbaş kod
dtp.Cells(son, 5) = dto.Cells(i, 3).Value 'demirbaş adi
dtp.Cells(son, 7) = dto.Cells(i, 4).Value 'adet
dtp.Cells(son, 8) = dto.Cells(i, 5).Value 'durum
son = son + 1
Next i
'============================================

dto.Range(dto.Cells(7, 1), dto.Cells(dtoson, 11)).Copy
DTd.Range("b" & dtdson + 1).PasteSpecial xlPasteAll
dto.Range(Cells(7, 1), Cells(dtoson, 11)).ClearContents
Application.CutCopyMode = True

'====================================

ActiveWindow.SelectedSheets.PrintPreview ' önizleme

End Sub

Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
metehan8001
Siteye Alışmış
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 10:30
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Sayfalar arası veri aktarımı

İleti#5)  enisoruc » 16 Tem 2018 19:15

Merhaba,
Yardımınız için teşekkürler. Ancak kodun aşağıdaki kısmında hata verdi.

dto.Range(Cells(7, 1), Cells(dtoson, 11)).ClearContents
Kullanıcı avatarı
enisoruc
Yeni Başlamış
 
Adı Soyadı:enis oruç
Kayıt: 27 May 2010 10:47
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Sayfalar arası veri aktarımı

İleti#6)  metehan8001 » 16 Tem 2018 19:28

Hata veren kod satırındaki kodları aşağıdaki ile değiştirin.

Kod: Tümünü seç
dto.Range(dto.Cells(7, 1), dto.Cells(dtoson, 11)).ClearContents
Kullanıcı avatarı
metehan8001
Siteye Alışmış
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 10:30
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Sayfalar arası veri aktarımı

İleti#7)  enisoruc » 17 Tem 2018 21:29

Merhaba,
Kodlar tam anlamıyla işimi gördü. Kusuruma bakmayın biraz geç oldu. İşe kendimi fena kaptırdım sanırım.

Selamlar.
Kullanıcı avatarı
enisoruc
Yeni Başlamış
 
Adı Soyadı:enis oruç
Kayıt: 27 May 2010 10:47
İleti: 19
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Sayfalar arası veri aktarımı

İleti#8)  metehan8001 » 17 Tem 2018 23:27

--)(
Kullanıcı avatarı
metehan8001
Siteye Alışmış
 
Adı Soyadı:mete han
Kayıt: 18 Ekm 2011 10:30
İleti: 393
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: OSMANİYE


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google Adsense [Bot], keciorenli ve 6 misafir

cron
Bumerang - Yazarkafe