Butonla sayfa bilgilerini başka sayfaya aktarma

[53rize]

Metraj sayfasında verileri girdiğimde yandaki renklendirdiğim yaklaşık maliyet sayfası oluşuyor. Bu sayfaya bir Butonla ekleyip renkli olan yaklaşık maliyet sayfasını diğer sayfalara ekleyebilirmi? yani her veri girdiğimde butona bastığımda başka sayfaya ekleyebilirmi? teşekkürler.

 

[halilyor]

çalışmalarımdan bir örnek

https://www.youtube.com/watch?v=XBKijmQqv0g

 

[53rize]

Ben videodan benim soruyla alakalı bir bağlantı kuramadım. Ne yapmam gerekiyor? Sayfaya Buton ekleyip her butona bastığımda başka sayfaya kopyalasın. sayfa1, sayfa2, sayfa3 gibi

 

[halilyor]

nasıl bir uygulama isterseniz hepsini yapabilirim bunlar örnektir.

 

[53rize]

Göndermiş olduğum Ekteki dosyayı yukarıdaki anlattığım gibi yaparsanız memnun olurum.

 

[halilyor]

dosya indiremiyorum daha sonra dönerim.

 

[Mustafa MUTLU]

Metraj sayfasında verileri girdiğimde yandaki renklendirdiğim yaklaşık maliyet sayfası oluşuyor. Bu sayfaya bir Butonla ekleyip renkli olan yaklaşık maliyet sayfasını diğer sayfalara ekleyebilirmi? yani her veri girdiğimde butona bastığımda başka sayfaya ekleyebilirmi? teşekkürler.

Modüle yapıştırın bir düğmeye Yeni_Sayfaya_Kaydet macrosunu atayın

Sub Yeni_Sayfaya_Kaydet()
Sheets("Metraj").Copy After:=Workbooks("Kitap1").Sheets(1)
End Sub

 

[53rize]

Metraj sayfanın hepsini kopyalamayacağım. Sadece metraj sayfasındaki renklendirmiş olduğum sayfayı, metraj sayfasının yanındaki sayfalara çoğaltmak istiyorum. Teşekkür ederim.

 

[Mustafa MUTLU]

Metraj sayfanın hepsini kopyalamayacağım. Sadece metraj sayfasındaki renklendirmiş olduğum sayfayı, metraj sayfasının yanındaki sayfalara çoğaltmak istiyorum. Teşekkür ederim.

Bir örnek yap.
yanındaki sayfaya nasıl kopyalanmalı
alt alta mı yan yanyanamı
hangi bilgiler hangi sütuna

sen bir örnek yapıp, örnekteki sonuçları istiyorum dersen, daha kolay yardım alırsın..

 

[53rize]

Dosyayı yeniden ekledim. Metraj sayfasına Butonu koydum. Butona her bastığımda metraj sayfasında olan renklendirilmiş kısmı sayfa 1, sayfa 2, sayfa 3 ayrı ayrı kopyalayacak.
Not: Örnek olarak kopyalanacak kısmı sayfa 1 yapıştırdım

 

[antonio]

Oluşturduğunuz butona aşağıdaki makroyu bağlayıp deneyiniz.

Sub kopyala()
Dim sh As Worksheet, renkli As Range
Set sh = Sheets("Metraj")
Set renkli = sh.Range("Z1")

mevcut = Worksheets.Count
gerekli = 4
eksik = gerekli - mevcut
If eksik > 0 Then
    For syf = mevcut To gerekli - 1
        Worksheets.Add after:=Worksheets(Sheets.Count)
    Next syf
End If
For i = 2 To 4
    Sheets(i).Cells.Clear
renkli.CurrentRegion.Copy
    With Sheets(i).Range("A1")
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
        .PasteSpecial xlPasteColumnWidths

    End With
Next i
Application.CutCopyMode = False
sh.Range("A1").Select
MsgBox "İşlem tamam", vbInformation, "KOPYALANDI BİLGİSİ"
End Sub

 

[53rize]

Sayın üstadım; kopyalama yapıyor. fakat aynı sayfayı (Aynı Bilgileri) 3 sayfaya birden kopyalıyor. aynı sayfayı bir sayfaya kopyalayacak. Metraj kısmındaki bilgileri tekrar değiştiğimde tekrar butona bastığımda tekrar o sayfadaki değişen bilgileri tekrar öteki sayfaya kopyalayacak. Her metrajın bilgilerini değiştiğimde ayrı ayrı sayfalara kopyalanması için lazımdı. Birde sizin yaptığınız 3 sayfada sınırlı. Her butona bastığımda yeni sayfa açıp kopyalasın. sayfalar 3 olur, 5 olur sayfa adedi butona bastığımda ilave edecek. Teşekkürler Saygılarımla.

 

[53rize]

SayınÜstadlarım; Makrolardan anlamadığım için Yukarıdaki dosyada bazı aksaklıklarımıda yazarak gönderdim. Dosyayı tekrar ekliyorum. Yardımlarınızı bekliyorum. Saygılarımla.

 

[yenilik025]

Farklı sayfa üretmek yerine Sanırım bu daha iyi olur.

Farklı sayfa üretmek yerine

şöyle bir şey deneseniz sanırım daha iyi olur.

tek veri tabanı istediğiniz bilgiye istediğiniz anda ulaşmak gibi bir şey.

umarım faydalı olur.

 

[53rize]

İlginize Teşekkürler. Yaptığınız tablonunda mantığını çözemedim. Benim verilerim metraj sayfasındaki değerleri değiştiğimde tabloya zaten işliyordu. Ben sadece bu tabloyu butondan sayfalara kayıt etmek istiyordum. İlginize alakanıza yine teşekkürler.

 

[yenilik025]

Siz ilkinde diğer sayfaya aktaracak sonra değiştiğinde ise yeni sayfalar oluşturacak şeklinde bir yeni sayfa üretmek düşünmüşsünüz bende sayfanın kapladığı alanı ve boyutunu düşünerek bir Veritabanından istediğiniz bilginin çekilmesi üzerine bir mantık kurdum. Hem ürettiklerinizede içinde bir Veritabanı olmuş gibi düşünmüştüm.
Kolay gelsin

İlginize Teşekkürler. Yaptığınız tablonunda mantığını çözemedim. Benim verilerim metraj sayfasındaki değerleri değiştiğimde tabloya zaten işliyordu. Ben sadece bu tabloyu butondan sayfalara kayıt etmek istiyordum. İlginize alakanıza yine teşekkürler.

 

[antonio]

Metraj sayfanızın sekmesine sağ tıklayın "Kod görüntüle" yi seçin. mevcut kodları silin ve aşağıdakileri oraya yapıştırın. Aynı sayfada oluşturduğunuz düğmeye sağ tıklayın, "Makro Ata" >> aşağıdaki kodları bağlayarak çalıştırın.
Ufak tefek ayrıntılar varsa taleplerinize kodları uyarlayabilirsiniz.

Sub aktar()
Dim sh As Worksheet, renkli As Range, yeni_sayfa As String
Dim syf As Worksheet
Set sh = Sheets("Metraj")
Set renkli = sh.Range("Z1")

mevcut = Worksheets.Count

        Worksheets.Add after:=Worksheets(Sheets.Count)
yeni_sayfa = "Yaklaşık Maliyet Tablosu - " & mevcut + 1
ActiveSheet.Name = yeni_sayfa
Set syf = Sheets(yeni_sayfa)

renkli.CurrentRegion.Copy
    With syf.Range("A1")
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
        .PasteSpecial xlPasteColumnWidths

    End With
Application.CutCopyMode = False
syf.Range("A5").Select
MsgBox "İşlem tamam", vbInformation, "KOPYALANDI BİLGİSİ"
End Sub

 

[yenilik025]

Hocam ben de şunu öğrenmek istiyorum benim hazırladığım dosyada satırları tek tek koklamak için ben sağdan soldan veri al diyerek hazırladım Ancak yinede uzun iş bunun yerine dizi şeklinde benim eklediğim dosyadan verileri daha küçük bir kodla aktarabilir miyiz?


Eklediğim dosya aşağıda vardı.

 

[53rize]

Sayın antonio ; Çok teşekkür ederim. Tam istediğim gibi ellerine sağlık.

 

[antonio]

Sayın antonio ; Çok teşekkür ederim. Tam istediğim gibi ellerine sağlık.

İşinize yaradıysa ne mutlu.