[Yardım]  satırdaki aynı değerleri,değerdeki sayfa ismine gör kopyalam

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

satırdaki aynı değerleri,değerdeki sayfa ismine gör kopyalam

İleti#1)  Mustafa Emre » 17 Nis 2018 23:26

kolay gelsin.
benim bir çalışma sayfam var. makro ile sayfalar arası kopyalama yapabiliyorum ancak: sütundaki aynı olan değerleri, renk, yazı tipi ve boyutu, satır yüksekliği değişmeden sütundaki aynı değerden olan sayfalara kopyalama (örn: B sütünundaki 1.blok ların hepsi 1.blok sayfasına biçimi bozulmadan kopyalanması)

şimdiden teşekkür ederim. [op]
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Mustafa Emre
Yeni Başlamış
 
Kayıt: 26 Kas 2014 02:11
Meslek: bilgi
Yaş: 38
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: satırdaki aynı değerleri,değerdeki sayfa ismine gör k

İleti#2)  hemso41 » 17 Nis 2018 23:57

Bir modül içerisine aşağıdaki kodları yapıştırıp herhangi bir butona sağ tuş makro ata ile dağıt makrosunu seçmeniz yeterli.
Kod: Tümünü seç
Sub dagit()

son = Sayfa1.Range("a1").End(xlDown).Row
ActiveWorkbook.Worksheets("ANASAYFA").Sort.SortFields.Add Key:=Range("B2:B" & son) _
                , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With ActiveWorkbook.Worksheets("ANASAYFA").Sort
                .SetRange Range("A1:E" & son)
                .Header = xlYes
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
           
    For i = 2 To son
        If Cells(i, 2) <> Cells(i + 1, 2) And Cells(i, 2) <> "" Then
            Range("a1").Select
            Selection.AutoFilter
            ActiveSheet.Range("$A$1:$E$" & son).AutoFilter Field:=2, Criteria1:=Cells(i, 2)
            Range("A2").Select
            Range(Selection, Selection.End(xlToRight)).Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.Copy
                    If sayfabak(Trim(Cells(i, 2))) = True Then 'sayfa varsa
                                 Sheets(Trim(Cells(i, 2))).Range("a2").PasteSpecial xlPasteAll
                                Application.CutCopyMode = False
                                Sayfa1.Select
                                Selection.AutoFilter
                    Else  'sayfa yoksa
                                Sheets.Add After:=Sheets(Worksheets.Count)
                                ActiveSheet.Name = Sayfa1.Cells(i, 2)
                                Range("a2").PasteSpecial xlPasteAll
                                Application.CutCopyMode = False
                                Sayfa1.Select
                                Selection.AutoFilter
                    End If
        End If
Next
End Sub

Function sayfabak(deger)
sayfabak = False
            For Each sayfa In ActiveWorkbook.Sheets
                If sayfa.Name = deger Then
                    sayfabak = True
                End If
            Next
End Function
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 10:04
Meslek: BİLGİ İŞLEM
Yaş: 38
İleti: 364
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

Cevap: satırdaki aynı değerleri,değerdeki sayfa ismine gör k

İleti#3)  Mustafa Emre » 19 Nis 2018 00:08

sayfaları istediğimiz biçimde kopyalama yapıyor. emeğinize sağlık şkşk
sadece kopyalanan sayfalara verileri atarken sıra numaralarını 1 den başlayarak sırasıyla verebilir miyiz. Yani kopyalanan verileri A2 sütunundan başlatmak yerine B2 sütunundan itibaren yapıştırsa A sütununa da değer kadar sırasıyla sayı verse.
Kullanıcı avatarı
Mustafa Emre
Yeni Başlamış
 
Kayıt: 26 Kas 2014 02:11
Meslek: bilgi
Yaş: 38
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: satırdaki aynı değerleri,değerdeki sayfa ismine gör k

İleti#4)  hemso41 » 19 Nis 2018 15:02

Sorduğunuz soruya yanıt verdim diğerine maalesef zaman ayıramam...
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 10:04
Meslek: BİLGİ İŞLEM
Yaş: 38
İleti: 364
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka

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

Cevap: satırdaki aynı değerleri,değer isimlerine göre kopyal

İleti#5)  Mustafa Emre » 07 Kas 2018 23:31

Maalesef göndermiş olduğunuz kodlar çalışmıyor. Hata veriyor. Sıralama yaptığı ilk veriyi her sayfaya kopyalamama yapmaması gerekirken kopyalıyor. Bu konuda acilen yardıma ihtiyacım var. :( :?: :!:
Kullanıcı avatarı
Mustafa Emre
Yeni Başlamış
 
Kayıt: 26 Kas 2014 02:11
Meslek: bilgi
Yaş: 38
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 3 misafir

Bumerang - Yazarkafe