[Yardım]  kod yazma

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

kod yazma

İleti#1)  drykcktl » 12 Şub 2020 10:44

merhaba arkadaşlar hazırlmış olduğum bir dosyam var birkaç eksiğim kaldı yardımlarınızı esirgemezseniz sevinirim açıklamalarım dosyamın içinde mevcut şimdiden teşekkür ederim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: kod yazma

İleti#2)  drykcktl » 12 Şub 2020 13:48

en azından kodu nasıl eklicem tarif edebilirmisiz
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: kod yazma

İleti#3)  Miraç CAN » 12 Şub 2020 14:27

Evet, dilime gelen ilk cümle: "Şair burada ne anlatmak istiyor"

Biraz detay paylaşır ve yapmak istediğinizi net bir şekilde ifade ederseniz, yardımcı olmaya çalışalım.
"GENEL SAYFA" isimli sayfadaki butona, açıklama olarak eklediğiniz kodları ekleyip çalıştırmak mı?
Sanırım birkaç istek daha var gibi... Ve sanırım çalışmanın bazı kısımları çıkarılmış. Sanki UserForm varmış gibi, Modüllerde birden fazla CommandButton kodu var, hangisine ne yapılması isteniyor..?
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: kod yazma

İleti#4)  drykcktl » 12 Şub 2020 14:56

Miraç CAN yazdı:Evet, dilime gelen ilk cümle: "Şair burada ne anlatmak istiyor"

Biraz detay paylaşır ve yapmak istediğinizi net bir şekilde ifade ederseniz, yardımcı olmaya çalışalım.
"GENEL SAYFA" isimli sayfadaki butona, açıklama olarak eklediğiniz kodları ekleyip çalıştırmak mı?
Sanırım birkaç istek daha var gibi... Ve sanırım çalışmanın bazı kısımları çıkarılmış. Sanki UserForm varmış gibi, Modüllerde birden fazla CommandButton kodu var, hangisine ne yapılması isteniyor..?

şöyle izah edeyim Miraç Bey ;
aslında o sayfayı ben başka sayfalardan uyarladım.index isimli sayfa yani yeni sayfalar açmada kulladığımdı.şimdi o kodun bulunduğu sayfayı eklemeye çalışıyorum diğer sayfada sorduğumun burayla alakalı kısmıda arada boş olan satırların aktarılmaması orjinalinide atayım
ayrıca ilginize teşekkür ederim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



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

Cevap: kod yazma

İleti#5)  Miraç CAN » 12 Şub 2020 15:30

Satır aralarında ki başlıklar? "FİRMA ADI" "PLAKA" vs. bunlar kalacak mı, genel sayfaya getirilecek mi?
bir de burada ne yapmaya çalıştınız anlamadım doğrusu:
Kod: Tümünü seç
                    Set Rng = evn.Cells(siraNo, 2)  ' kısaca rng yazmak için boyle yaptım
                    Select Case Len(Rng)
                        Case 7: Rng = Format(Rng, "###"" ""##"" ""##")
                        Case 8: Rng = Format(Rng, "###"" ""##"" ""###")
                        Case 9: Rng = Format(Rng, "###"" ""###"" ""###")
                        Case 10: Rng = Format(Rng, "###"" ""###"" ""##"" ""##")
                    End Select

Tarih formatı? Mı?
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: kod yazma

İleti#6)  drykcktl » 12 Şub 2020 15:46

Miraç CAN yazdı:Satır aralarında ki başlıklar? "FİRMA ADI" "PLAKA" vs. bunlar kalacak mı, genel sayfaya getirilecek mi?
bir de burada ne yapmaya çalıştınız anlamadım doğrusu:
Kod: Tümünü seç
                    Set Rng = evn.Cells(siraNo, 2)  ' kısaca rng yazmak için boyle yaptım
                    Select Case Len(Rng)
                        Case 7: Rng = Format(Rng, "###"" ""##"" ""##")
                        Case 8: Rng = Format(Rng, "###"" ""##"" ""###")
                        Case 9: Rng = Format(Rng, "###"" ""###"" ""###")
                        Case 10: Rng = Format(Rng, "###"" ""###"" ""##"" ""##")
                    End Select

Tarih formatı? Mı?

kalmasa iyi olur aslında hatta aralardaki toplamlar bile olmasa iyi olur o kodlar ne bilmiyorum inanın ben başka sayfadan uyarladığım için
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: kod yazma

İleti#7)  Miraç CAN » 12 Şub 2020 16:22

Deneyin:
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim Sh As Single, Rw As Single, Sayfa As Worksheet, cl As Single
Set Sayfa = Sheets("GENEL SAYFA")
Sayfa.AutoFilterMode = False
Sayfa.Range("A2", Cells(Rows.Count, Columns.Count)).ClearContents
siraNo = 1
For Sh = 1 To Sheets.Count
    With Sheets(Sh)
        If .Name <> "GENEL SAYFA" Then
            For Rw = 2 To .Cells(Rows.Count, 2).End(3).Row
                If Not IsEmpty(.Cells(Rw, 2)) And IsDate(.Cells(Rw, 2)) Then
                    siraNo = siraNo + 1
                    Sayfa.Cells(siraNo, 1) = siraNo - 1
                    Sayfa.Cells(siraNo, 2) = Format(.Cells(Rw, 2).Value, "d.mm.yyyy")
                    For cl = 3 To 15
                        Sayfa.Cells(siraNo, cl) = .Cells(Rw, cl).Value
                    Next cl
                End If
            Next Rw
        End If
    End With
Next Sh
Sh = Empty: Rw = Empty
Set Sayfa = Nothing
End Sub
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: kod yazma

İleti#8)  drykcktl » 12 Şub 2020 16:30

Miraç CAN yazdı:Deneyin:
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim Sh As Single, Rw As Single, Sayfa As Worksheet, cl As Single
Set Sayfa = Sheets("GENEL SAYFA")
Sayfa.AutoFilterMode = False
Sayfa.Range("A2", Cells(Rows.Count, Columns.Count)).ClearContents
siraNo = 1
For Sh = 1 To Sheets.Count
    With Sheets(Sh)
        If .Name <> "GENEL SAYFA" Then
            For Rw = 2 To .Cells(Rows.Count, 2).End(3).Row
                If Not IsEmpty(.Cells(Rw, 2)) And IsDate(.Cells(Rw, 2)) Then
                    siraNo = siraNo + 1
                    Sayfa.Cells(siraNo, 1) = siraNo - 1
                    Sayfa.Cells(siraNo, 2) = Format(.Cells(Rw, 2).Value, "d.mm.yyyy")
                    For cl = 3 To 15
                        Sayfa.Cells(siraNo, cl) = .Cells(Rw, cl).Value
                    Next cl
                End If
            Next Rw
        End If
    End With
Next Sh
Sh = Empty: Rw = Empty
Set Sayfa = Nothing
End Sub



teşekkür ederim emeğinize sağlık birde o butonun boyunutu bulunduğu yeri nasıl değiştirebilirim
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: Cevap: Cevap: kod yazma

İleti#9)  drykcktl » 12 Şub 2020 16:43

drykcktl yazdı:
Miraç CAN yazdı:Deneyin:
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim Sh As Single, Rw As Single, Sayfa As Worksheet, cl As Single
Set Sayfa = Sheets("GENEL SAYFA")
Sayfa.AutoFilterMode = False
Sayfa.Range("A2", Cells(Rows.Count, Columns.Count)).ClearContents
siraNo = 1
For Sh = 1 To Sheets.Count
    With Sheets(Sh)
        If .Name <> "GENEL SAYFA" Then
            For Rw = 2 To .Cells(Rows.Count, 2).End(3).Row
                If Not IsEmpty(.Cells(Rw, 2)) And IsDate(.Cells(Rw, 2)) Then
                    siraNo = siraNo + 1
                    Sayfa.Cells(siraNo, 1) = siraNo - 1
                    Sayfa.Cells(siraNo, 2) = Format(.Cells(Rw, 2).Value, "d.mm.yyyy")
                    For cl = 3 To 15
                        Sayfa.Cells(siraNo, cl) = .Cells(Rw, cl).Value
                    Next cl
                End If
            Next Rw
        End If
    End With
Next Sh
Sh = Empty: Rw = Empty
Set Sayfa = Nothing
End Sub



teşekkür ederim emeğinize sağlık birde o butonun boyunutu bulunduğu yeri nasıl değiştirebilirim.
onu daha küçük bir şekilde başka yere almam lazım
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: Cevap: Cevap: Cevap: kod yazma

İleti#10)  drykcktl » 12 Şub 2020 16:52

drykcktl yazdı:
drykcktl yazdı:
Miraç CAN yazdı:Deneyin:
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim Sh As Single, Rw As Single, Sayfa As Worksheet, cl As Single
Set Sayfa = Sheets("GENEL SAYFA")
Sayfa.AutoFilterMode = False
Sayfa.Range("A2", Cells(Rows.Count, Columns.Count)).ClearContents
siraNo = 1
For Sh = 1 To Sheets.Count
    With Sheets(Sh)
        If .Name <> "GENEL SAYFA" Then
            For Rw = 2 To .Cells(Rows.Count, 2).End(3).Row
                If Not IsEmpty(.Cells(Rw, 2)) And IsDate(.Cells(Rw, 2)) Then
                    siraNo = siraNo + 1
                    Sayfa.Cells(siraNo, 1) = siraNo - 1
                    Sayfa.Cells(siraNo, 2) = Format(.Cells(Rw, 2).Value, "d.mm.yyyy")
                    For cl = 3 To 15
                        Sayfa.Cells(siraNo, cl) = .Cells(Rw, cl).Value
                    Next cl
                End If
            Next Rw
        End If
    End With
Next Sh
Sh = Empty: Rw = Empty
Set Sayfa = Nothing
End Sub



teşekkür ederim emeğinize sağlık birde o butonun boyunutu bulunduğu yeri nasıl değiştirebilirim.
onu daha küçük bir şekilde başka yere almam lazım


mesajları nasıl sileceğimi bilemedim son bir şey daha sormak istiyorum aktarım yaparken plaka olan sütun boşsa aktarmasa olurmu
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: kod yazma

İleti#11)  Miraç CAN » 12 Şub 2020 16:55

Geliştirici\Tasarım Modu'na geçerek gerekli düzenlemeyi yapabilirsiniz.
Bulunduğu yer, sayfada ki seçiminize göre ayarlanıyor.
İlgili sayfanın Worksheet_SelectionChange olayında.
Seçilen satırın üst sınırına taşıyor, bence kullanışlı, manuel olarak sadece biraz sağa kaydırmak yeterli olur gibi.
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: Cevap: Cevap: Cevap: kod yazma

İleti#12)  Miraç CAN » 12 Şub 2020 17:03

drykcktl yazdı:mesajları nasıl sileceğimi bilemedim son bir şey daha sormak istiyorum aktarım yaparken plaka olan sütun boşsa aktarmasa olurmu

O da olur,
IsDate(.Cells(Rw, 2)) kısmını IsNumeric(Left(.Cells(Rw, 5), 2)) ile değiştirin.
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: kod yazma

İleti#13)  drykcktl » 13 Şub 2020 07:44

Miraç CAN yazdı:
drykcktl yazdı:mesajları nasıl sileceğimi bilemedim son bir şey daha sormak istiyorum aktarım yaparken plaka olan sütun boşsa aktarmasa olurmu

O da olur,
IsDate(.Cells(Rw, 2)) kısmını IsNumeric(Left(.Cells(Rw, 5), 2)) ile değiştirin.



günaydın;
üstadım ellerinize emeğinize sağlık ne kadar tesekkür etsem az size.birtek butonun yerini değiştirmeyi yapamadım onu sayfanın baya soluna kaydırmak istiyorum sebebi bu görünmesini istemiyorum aa sütunu olabilir mesela
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: Cevap: kod yazma

İleti#14)  drykcktl » 13 Şub 2020 07:48

drykcktl yazdı:
Miraç CAN yazdı:
drykcktl yazdı:mesajları nasıl sileceğimi bilemedim son bir şey daha sormak istiyorum aktarım yaparken plaka olan sütun boşsa aktarmasa olurmu

O da olur,
IsDate(.Cells(Rw, 2)) kısmını IsNumeric(Left(.Cells(Rw, 5), 2)) ile değiştirin.



günaydın;
üstadım ellerinize emeğinize sağlık ne kadar tesekkür etsem az size.birtek butonun yerini değiştirmeyi yapamadım onu sayfanın baya soluna kaydırmak istiyorum sebebi bu görünmesini istemiyorum aa sütunu olabilir mesela



yaptım :) tesekkürler
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: kod yazma

İleti#15)  drykcktl » 13 Şub 2020 09:57

Miraç Bey son birşey sorabilirmiyim iznizin olursa
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: kod yazma

İleti#16)  Miraç CAN » 13 Şub 2020 10:05

Buyrun tabi,
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: Cevap: kod yazma

İleti#17)  drykcktl » 13 Şub 2020 10:18

Miraç CAN yazdı:Buyrun tabi,

ekteki dosyam sayenizde çok güzel oldu. ellerinize sağlık
index sayfasına tarihlerin karşışığına o gün gelen malı aldırmak istiyorum.sayfalarda belli hücrelerde bu değerler var formulle yani = deyip hücre değerini alabiliyorum ben bunu makro ile yapmak istiyorum ama butonla değil yani veri girildikçe otomatik gelsin her ay yeni sayfa oluşturduğumuz için sıkıntı oluyor.
ayrıca genel listeyi ayrı bir excel sayfasına da almamız mümkünmü mesela şubat ayı analiz diye bir sayfa açtığımda burayada yazabilirmi aynı verileri
son olarak sayfayı ilk açtığımda genel liste geliyor karşıma index sayfası açılsa

çok oldum biliyorum kusura bakmayın lütfen hakkınızı helal edin
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: kod yazma

İleti#18)  drykcktl » 13 Şub 2020 10:20

pardon dosya eklemeyi unuttum
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Cevap: Cevap: Cevap: kod yazma

İleti#19)  Miraç CAN » 13 Şub 2020 10:36

drykcktl yazdı: ekteki dosyam sayenizde çok güzel oldu. ellerinize sağlık
index sayfasına tarihlerin karşışığına o gün gelen malı aldırmak istiyorum.sayfalarda belli hücrelerde bu değerler var formulle yani = deyip hücre değerini alabiliyorum ben bunu makro ile yapmak istiyorum ama butonla değil yani veri girildikçe otomatik gelsin her ay yeni sayfa oluşturduğumuz için sıkıntı oluyor.

Workbook_SheetChange veya Worksheet_Change olaylarına ihtiyacınız olan kodlar yazılıp yapılabilir.
ayrıca genel listeyi ayrı bir excel sayfasına da almamız mümkünmü mesela şubat ayı analiz diye bir sayfa açtığımda burayada yazabilirmi aynı verileri

Dosyayı kodlarla açtırıp yazdırabilirsiniz, şimdi yaptığımız gibi veya ADO ile kapalı dosyaya erişimlerle de yapılabilir, çok vakıf değilim o kunuya.
son olarak sayfayı ilk açtığımda genel liste geliyor karşıma index sayfası açılsa

Dosya açılırken veya kapanmadan hemen önceki olaylara tercihe göre yapılabilir.
Workbook_Open ya da Auto_Open olayına Sheets("İndex").Activate yazın
Workbook_BeforeClose olayına da Sheets("İndex").Activate yazıp kaydet deyip yapabilirsiniz.
çok oldum biliyorum kusura bakmayın lütfen hakkınızı helal edin

Rica ederim, katkımız olduysa ne âlâ, ama ricam; bu başlıkları ayrı ayrı araştırın, bolca örnekleri mevcut Web'de, kendinize uyarlamaya çalışarak, takıldığınız, çözemediğiniz konularda yardım talepleriniz daha hızlı ve pratik bir şekilde sonuca ulaşır.
Kullanıcı avatarı
Miraç CAN
Siteye Alışmış
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 38
İleti: 417
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya\Adana

Cevap: kod yazma

İleti#20)  drykcktl » 13 Şub 2020 11:03

drykcktl yazdı:
ekteki dosyam sayenizde çok güzel oldu. ellerinize sağlık
index sayfasına tarihlerin karşışığına o gün gelen malı aldırmak istiyorum.sayfalarda belli hücrelerde bu değerler var formulle yani = deyip hücre değerini alabiliyorum ben bunu makro ile yapmak istiyorum ama butonla değil yani veri girildikçe otomatik gelsin her ay yeni sayfa oluşturduğumuz için sıkıntı oluyor.

Workbook_SheetChange veya Worksheet_Change olaylarına ihtiyacınız olan kodlar yazılıp yapılabilir.


bu nasıl işte onu bilmiyorum
Kullanıcı avatarı
drykcktl
Yeni Başlamış
 
Adı Soyadı:DERYA KÜÇÜKTÜLÜ
Kayıt: 12 Haz 2013 13:28
Konum: izmir
Meslek: muhasebe
Yaş: 39
İleti: 48
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: İZMİR çiğli



Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot] ve 1 misafir

Bumerang - Yazarkafe