[Yardım]  Diğer saygalarda ara ekle ve sayfa adlarını yaz

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

Diğer saygalarda ara ekle ve sayfa adlarını yaz

İleti#1)  Bedrettin DEMİRCİ » 07 Şub 2019 08:03

Değerli forum arkadaşlarım aşağıda belirttiğim konularda yardımcı olursanız memnun olurum.
EKLE Butonu :
1 - Diğer sayfalarda arıyor ve hangi sayfada varsa o sayfa adını ve kaçtane olduğunu yazıyor. Sayfa adı sadece en sonuncusunu yazıyor. Diğer sayfalardada var ama yazmıyor. Farklı sayfaları yan sütunlara yazması lazım.
2 - Diğer sayfalarda bulduğu yere D-E-F-G-H ve I sütunlarındaki değeri yazması lazım.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Diğer saygalarda ara ekle ve sayfa adlarını yaz

İleti#2)  OmerFaruk72 » 08 Şub 2019 12:37

Denermisiniz
Kod: Tümünü seç
Sub EVN_HKodu_Ocak_omerfaruk72_yeni()
Application.ScreenUpdating = False
Dim HKodu As String
Set s1 = Sheets("AnaS")
s1.Range("j2:S65536").Value = ""
SonSatır = Cells(2, 1).End(xlDown).Row
    For i = 2 To s1.Range("B65536").End(3).Row
        x = 10
        HKodu = s1.Cells(i, 2).Value
        For sh = 1 To Worksheets.Count
            If Worksheets(sh).Name = "AnaS" Then GoTo ATLA1
            kaçtane = WorksheetFunction.CountIf(Worksheets(sh).Range("B2:B65536"), HKodu)
            If kaçtane > 0 Then
                s1.Cells(i, x).Value = Worksheets(sh).Name
                s1.Cells(i, x + 1).Value = kaçtane
                x = x + 2
            End If
ATLA1:
        Next sh
    Next i
Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
OmerFaruk72
Yeni Başlamış
 
Kayıt: 15 Ekm 2018 10:39
Meslek: Elektrik Mühendisi
Yaş: 46
İleti: 26
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Diğer saygalarda ara ekle ve sayfa adlarını yaz

İleti#3)  Bedrettin DEMİRCİ » 08 Şub 2019 13:29

Denedim hiç bir kayıt atmadı
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Diğer saygalarda ara ekle ve sayfa adlarını yaz

İleti#4)  OmerFaruk72 » 09 Şub 2019 13:42

Şimdi tekrar denedim. Çalışıyor. Sanırım butona atadığınız makro yanlış.
Şöyle yapın.
Dosyanızdaki tüm modülleri kaldırın. Verdiğim kodu Module1 içine kopyalayın. Butona da bu makroyu atayın. Çalışacaktır.
Kullanıcı avatarı
OmerFaruk72
Yeni Başlamış
 
Kayıt: 15 Ekm 2018 10:39
Meslek: Elektrik Mühendisi
Yaş: 46
İleti: 26
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

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

Cevap: Diğer saygalarda ara ekle ve sayfa adlarını yaz

İleti#5)  Bedrettin DEMİRCİ » 09 Şub 2019 14:45

Tamam sayfa adı ve adedi doğru geliyor
sadece o değil ilave olarak işlem yapması lazım

yukarda yazdım
2 - Diğer sayfalarda bulduğu yere D-E-F-G-H ve I sütunlarındaki değeri yazması lazım.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Diğer saygalarda ara ekle ve sayfa adlarını yaz

İleti#6)  Bedrettin DEMİRCİ » 09 Şub 2019 14:46

EKLE Butonu :
1 - Diğer sayfalarda arıyor ve hangi sayfada varsa o sayfa adını ve kaçtane olduğunu yazıyor.
Sayfa adı sadece en sonuncusunu yazıyor.
Diğer sayfalardada var ama yazmıyor. Farklı sayfaları yan sütunlara yazması lazım.
2 - Diğer sayfalarda bulduğu yere D-E-F-G-H ve I sütunlarındaki değeri yazması lazım.
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Diğer saygalarda ara ekle ve sayfa adlarını yaz

İleti#7)  OmerFaruk72 » 09 Şub 2019 17:30

Kod: Tümünü seç
Sub EVN_HKodu_1()
Application.ScreenUpdating = False
Dim HKodu As String
Set s1 = Sheets("AnaS")
s1.Range("j2:S65536").Value = ""
SonSatır = Cells(2, 1).End(xlDown).Row
    For i = 2 To s1.Range("B65536").End(3).Row
        x = 10
        HKodu = s1.Cells(i, 2).Value
        For sh = 1 To Worksheets.Count
            kaçtane = 0
            If Worksheets(sh).Name = "AnaS" Then GoTo ATLA1
            kaçtane = WorksheetFunction.CountIf(Worksheets(sh).Range("B2:B65536"), HKodu)
           
            If kaçtane > 0 Then
                s1.Cells(i, x).Value = Worksheets(sh).Name
                s1.Cells(i, x + 1).Value = kaçtane
                x = x + 2
            End If
            SonSat = Worksheets(sh).Cells(1048576, 1).End(xlUp).Row
            For k = 3 To SonSat
                If HKodu = Worksheets(sh).Cells(k, 2) Then
                    For b = 4 To 10
                        Worksheets(sh).Cells(k, b) = s1.Cells(i, b)
                        'Sütunları kendiniz ayarlayın, yazdığınıza tablonuz uyuşmuyor
                        'yada 6 sütun için tek tek yazarsınız
                    Next b
                End If
            Next k
ATLA1:
        Next sh
    Next i
Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
OmerFaruk72
Yeni Başlamış
 
Kayıt: 15 Ekm 2018 10:39
Meslek: Elektrik Mühendisi
Yaş: 46
İleti: 26
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara/Çankaya

Cevap: Diğer saygalarda ara ekle ve sayfa adlarını yaz

İleti#8)  Bedrettin DEMİRCİ » 11 Şub 2019 08:36

Sadece bu kısımda değişiklik yaptım ve çok güzel çalıştı
elinize sağlık. istediğim oldu saolun teşekkür ederim
yalnız "b-1" yazdığım yer için for döngüsü eklenebilirmi.

SonSat = Worksheets(sh).Cells(1048576, 1).End(xlUp).Row
For k = 3 To SonSat
If HKodu = Worksheets(sh).Cells(k, 2) Then
For b = 4 To 9
Worksheets(sh).Cells(k, b - 1) = s1.Cells(i, b)
'Sütunları kendiniz ayarlayın, yazdığınıza tablonuz uyuşmuyor
'yada 6 sütun için tek tek yazarsınız
Next b
End If
Next k
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE

Cevap: Cevap: Diğer saygalarda ara ekle ve sayfa adlarını ya

İleti#9)  Bedrettin DEMİRCİ » 12 Şub 2019 08:42

Çok güzel . tam istediğim gibi fakat bir eksik var
Bulduğu isim iki tane ise ikisinede bakiyeleri atmıyor
sadece birine atıyor


OmerFaruk72 yazdı:
Kod: Tümünü seç
Sub EVN_HKodu_1()
Application.ScreenUpdating = False
Dim HKodu As String
Set s1 = Sheets("AnaS")
s1.Range("j2:S65536").Value = ""
SonSatır = Cells(2, 1).End(xlDown).Row
    For i = 2 To s1.Range("B65536").End(3).Row
        x = 10
        HKodu = s1.Cells(i, 2).Value
        For sh = 1 To Worksheets.Count
            kaçtane = 0
            If Worksheets(sh).Name = "AnaS" Then GoTo ATLA1
            kaçtane = WorksheetFunction.CountIf(Worksheets(sh).Range("B2:B65536"), HKodu)
           
            If kaçtane > 0 Then
                s1.Cells(i, x).Value = Worksheets(sh).Name
                s1.Cells(i, x + 1).Value = kaçtane
                x = x + 2
            End If
            SonSat = Worksheets(sh).Cells(1048576, 1).End(xlUp).Row
            For k = 3 To SonSat
                If HKodu = Worksheets(sh).Cells(k, 2) Then
                    For b = 4 To 10
                        Worksheets(sh).Cells(k, b) = s1.Cells(i, b)
                        'Sütunları kendiniz ayarlayın, yazdığınıza tablonuz uyuşmuyor
                        'yada 6 sütun için tek tek yazarsınız
                    Next b
                End If
            Next k
ATLA1:
        Next sh
    Next i
Application.ScreenUpdating = True
End Sub
Kullanıcı avatarı
Bedrettin DEMİRCİ
Site Dostu
 
Kayıt: 19 Oca 2015 09:45
Meslek: MUHASEBE
Yaş: 38
İleti: 1616
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA-ATB/YENİMAHALLE


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: omeryılmaz ve 0 misafir

Bumerang - Yazarkafe