Tamamlandı butonu ile listeyi güncellemek

E

ERDAL1984

Katılım
15 Kasım 2007
Mesajlar
16
Excel Vers. ve Dili
Microsoft Excel 2010
1.) Yeni ürün giriş dosyasında yapılacak işlem kısmında 2 seçenek mevcut, ama sadece her defasında mail gönderdiğimde %100 kontrol olarak gönderim yapıyor. Burada hangisini seçersem seçeyim o şekilde mail atmasını isitiyorum.
https://dosya.co/eg7r8pc3fgvg/ÜRETİM_KONTROL_DOSYASI.xlsm.html

2.) Tamamla sekmesinde bir liste oluşturdum.Buraya liste sekmesinde oluşturduğum bilgiler geliyor. Bu listeyi oluşturmamın amacı ilgili parçanın işlemi üretimde tamamlandıktan sonra buradan takip numarasını yazarak parçaya ait bilgiler geliyor. Ben bu sayfada tamamlanma tarihini yazarak "tamamlandı"butonuna basarak ilgili parçanın liste içerisinde ki sütunu yeşil yapmasını istiyorum ve sorarak mail göndermesini istiyorum. Yardımcı olabilirmisiniz.
 
D

DoğanD

Altın Üye
Katılım
22 Eylül 2023
Mesajlar
427
Excel Vers. ve Dili
Office 365 TR
Altın Üyelik Bitiş Tarihi
05-10-2028
Merhaba,

İlk sorununuzu YeniÜrün sayfası kod kısmında bulunan buton1 Click özelliği altındaki satırı bu şekilde değiştirerek çözebilirsiniz. 2. soruyu tam anlayamadım açıkçası. Renk değiştirmek tamam ama mail kısmını açıklar mısınız? Kime, ne ve nasıl gönderecek? Konu, gövde kısımlarında ne olacak?

konu = yapilacakislem & " - " & firmaadi & " - " & parcano
 
E

ERDAL1984

Katılım
15 Kasım 2007
Mesajlar
16
Excel Vers. ve Dili
Microsoft Excel 2010
DoğanD' Alıntı:
Merhaba,

İlk sorununuzu YeniÜrün sayfası kod kısmında bulunan buton1 Click özelliği altındaki satırı bu şekilde değiştirerek çözebilirsiniz. 2. soruyu tam anlayamadım açıkçası. Renk değiştirmek tamam ama mail kısmını açıklar mısınız? Kime, ne ve nasıl gönderecek? Konu, gövde kısımlarında ne olacak?

konu = yapilacakislem & " - " & firmaadi & " - " & parcano
Genişletmek için tıkla ...
Doğan bey çok teşekkür ederim cevabınız için ilk sorum hızlıca çözüldü. Kusura bakmayın eksik yazdım.
Listede kayıtlı olan işlerimden herhangi birisi bittiğinde ben "Tamamlama" listesine gelip "Takip Sıra Numarasını Yazın" kısmına tamamlanan parçamın takip numarasını girerek tüm bilgiler geliyor. Bu alanlar geldikten sonra ben tamamlanma tarihini girmek istiyorum ve ilgili sekmede oluşturduğum kaydet butonuna basarak bu işin tamamlandığını liste içerisinde de göstermek istiyorum. Yani ilgili takip numarasına ait sütunun yeşil olmasını isitiyorum. Tabi bu esnada mail göndermek isteyecek ve mailde "tamamlanma" sekmesindeki tüm bilgilerimin benim tanımlayacağım birimlere gitmesini istiyorum. Çok teşekkür ederim desteğiniz için.
Eğer ulaşmak istersen cep numaramı da verebilirim.

Mailin Konu kısmında yapılan işelmin yanına birde tamamlandı cümlesi ekleyebilirmiyiz.
konu = yapilanislem & " - " & firmaadi & " - " & parcano

Sayın İlgililer aşağıda yazılı olan parçanın işlemi tamamlanarak depoya teslim edilmiştir
Takip No:02
Kayıt Eden : E.Ateş
Firma Adı : LEGRAND RUSYA
Parça No : 333.025.16
Lot No : 23/4585
Parça Miktarı : 120000
Problem : kol ucu yamuk
Yapılacak İşlem : Yeniden İşlem
Yapılacak İşlem Detay : aparatta düzeltilecek
Tamamlama Tarihi:05.10.2023


Takip Listesine \\server1\Belgeler\kalite\ÜRETİM KONTROL ve YENİDEN İŞLEM TAKİP DOSYASI üzerinden ulaşabilirsiniz.
 
Son düzenleme:
D

DoğanD

Altın Üye
Katılım
22 Eylül 2023
Mesajlar
427
Excel Vers. ve Dili
Office 365 TR
Altın Üyelik Bitiş Tarihi
05-10-2028
Merhaba,

Anladığım kadarıyla aşağıdaki kod işinizi görecektir, kontrol eder misiniz? Kodu herhangi bir modül içine yapıştırdıktan sonra, tamamlama sayfasındaki butona Makro Ata seçeneği ile "Tamamm" makrosunu atamalısınız.

Bununla birlikte, renklendirme için Liste sayfasında A2:O2 seçili iken;
Koşullu Biçimlendirme > Yeni Kural > Formül Kullan kısmına =$O2="Tamamlandı" yazıp, biçim ayarını da yaparsanız sanırım tamamlanmış olacak.

Kod: 
Sub Tamamm()

takipno = Sayfa4.Range("j3").Value
KayitEden = Sayfa4.Range("j6").Value
firmaadi = Sayfa4.Range("j5").Value
parcano = Sayfa4.Range("j7").Value
lotno = Sayfa4.Range("j8").Value
parcamiktari = Sayfa4.Range("j9").Value
problemintanimi = Sayfa4.Range("j11").Value
yapilacakislem = "Yeniden İşlem"
yapilacakislemdetay = Sayfa4.Range("j12").Value
Tamamtrh = Date

satirno = WorksheetFunction.Match(takipno, Sayfa2.Range("A:A"), 0)
Sayfa2.Cells(satirno, 14) = Tamamtrh
Sayfa2.Cells(satirno, 15) = "Tamamlandı"
    
MsgBox "Kayıt yapıldı listeyi kontrol ediniz", vbInformation, "İşlem Tamam Listeyi Kontrol Edin"

'MAİL GÖNDER---------------------------------

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim konu As String
    
    konu = yapilacakislem & " - " & firmaadi & " - " & parcano & " - " & "Tamamlandı"
    
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
 
    strbody = "Sayın İlgililer aşağıda yazılı olan parçanın işlemi tamamlanarak depoya teslim edilmiştir" & vbNewLine & vbNewLine & _
              "Takip No        : " & takipno & vbNewLine & _
              "Kayıt Eden         : " & KayitEden & vbNewLine & _
              "Firma Adı          : " & firmaadi & vbNewLine & _
              "Parça No           : " & parcano & vbNewLine & _
              "Lot No             : " & lotno & vbNewLine & _
              "Parça Miktarı      : " & parcamiktari & vbNewLine & _
              "Problem            : " & problemintanimi & vbNewLine & _
              "Yapılacak İşlem    : " & yapilacakislem & vbNewLine & _
              "Yapılacak İşlem Detay    : " & yapilacakislemdetay & vbNewLine & _
              "Tamamlama Tarihi              : " & Tamamtrh & vbNewLine & vbNewLine & _
              "Takip Listesine \\server1\Belgeler\kalite\ÜRETİM KONTROL ve YENİDEN İŞLEM TAKİP DOSYASI üzerinden ulaşabilirsiniz."

      
    On Error Resume Next
    With OutMail
        .To = "e.ates@makyay.com.tr"
        .CC = "e.ates@makyay.com.tr"
        .BCC = ""
        .Subject = konu
        .Body = strbody
        .display 'Send   'or use .Display
    End With
    
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing

'------------------------------------------------------
End Sub
 
E

ERDAL1984

Katılım
15 Kasım 2007
Mesajlar
16
Excel Vers. ve Dili
Microsoft Excel 2010
DoğanD' Alıntı:
Merhaba,

Anladığım kadarıyla aşağıdaki kod işinizi görecektir, kontrol eder misiniz? Kodu herhangi bir modül içine yapıştırdıktan sonra, tamamlama sayfasındaki butona Makro Ata seçeneği ile "Tamamm" makrosunu atamalısınız.

Bununla birlikte, renklendirme için Liste sayfasında A2:O2 seçili iken;
Koşullu Biçimlendirme > Yeni Kural > Formül Kullan kısmına =$O2="Tamamlandı" yazıp, biçim ayarını da yaparsanız sanırım tamamlanmış olacak.

Kod: 
Sub Tamamm()

takipno = Sayfa4.Range("j3").Value
KayitEden = Sayfa4.Range("j6").Value
firmaadi = Sayfa4.Range("j5").Value
parcano = Sayfa4.Range("j7").Value
lotno = Sayfa4.Range("j8").Value
parcamiktari = Sayfa4.Range("j9").Value
problemintanimi = Sayfa4.Range("j11").Value
yapilacakislem = "Yeniden İşlem"
yapilacakislemdetay = Sayfa4.Range("j12").Value
Tamamtrh = Date

satirno = WorksheetFunction.Match(takipno, Sayfa2.Range("A:A"), 0)
Sayfa2.Cells(satirno, 14) = Tamamtrh
Sayfa2.Cells(satirno, 15) = "Tamamlandı"
   
MsgBox "Kayıt yapıldı listeyi kontrol ediniz", vbInformation, "İşlem Tamam Listeyi Kontrol Edin"

'MAİL GÖNDER---------------------------------

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim konu As String
   
    konu = yapilacakislem & " - " & firmaadi & " - " & parcano & " - " & "Tamamlandı"
   
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)

    strbody = "Sayın İlgililer aşağıda yazılı olan parçanın işlemi tamamlanarak depoya teslim edilmiştir" & vbNewLine & vbNewLine & _
              "Takip No        : " & takipno & vbNewLine & _
              "Kayıt Eden         : " & KayitEden & vbNewLine & _
              "Firma Adı          : " & firmaadi & vbNewLine & _
              "Parça No           : " & parcano & vbNewLine & _
              "Lot No             : " & lotno & vbNewLine & _
              "Parça Miktarı      : " & parcamiktari & vbNewLine & _
              "Problem            : " & problemintanimi & vbNewLine & _
              "Yapılacak İşlem    : " & yapilacakislem & vbNewLine & _
              "Yapılacak İşlem Detay    : " & yapilacakislemdetay & vbNewLine & _
              "Tamamlama Tarihi              : " & Tamamtrh & vbNewLine & vbNewLine & _
              "Takip Listesine \\server1\Belgeler\kalite\ÜRETİM KONTROL ve YENİDEN İŞLEM TAKİP DOSYASI üzerinden ulaşabilirsiniz."

     
    On Error Resume Next
    With OutMail
        .To = "e.ates@makyay.com.tr"
        .CC = "e.ates@makyay.com.tr"
        .BCC = ""
        .Subject = konu
        .Body = strbody
        .display 'Send   'or use .Display
    End With
   
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing

'------------------------------------------------------
End Sub
Genişletmek için tıkla ...

Doğan bey çok teşekkür ederim çok güzel oldu. Emeğinize sağlık.
Karşılaştığım iki sorun oldu ekte görseli paylaştım kontrol edebilir misiniz. Birde Tamamlandı dosyasında tamam butonuna bastığımda listeyi güncellemiyor ve mail göndermiyor. Ama F5 ile komut verdiğimde mailde gönderiyor listeyi de güncelliyor. Ne yapabilirim.

https://dosya.co/1dnfe1ck3kca/MAKRO.png.html
 
D

DoğanD

Altın Üye
Katılım
22 Eylül 2023
Mesajlar
427
Excel Vers. ve Dili
Office 365 TR
Altın Üyelik Bitiş Tarihi
05-10-2028
Merhaba,

Bir tanımlamayı yanlış yapmışım, aşağıdaki değişken tanımlamasını bu şekilde düzeltir misiniz?

yapilacakislem = Sayfa4.Range("j10").Value

Yazdığınız makroyu butona atadınız mı?
 
E

ERDAL1984

Katılım
15 Kasım 2007
Mesajlar
16
Excel Vers. ve Dili
Microsoft Excel 2010
DoğanD' Alıntı:
Merhaba,

Bir tanımlamayı yanlış yapmışım, aşağıdaki değişken tanımlamasını bu şekilde düzeltir misiniz?

yapilacakislem = Sayfa4.Range("j10").Value

Yazdığınız makroyu butona atadınız mı?
Genişletmek için tıkla ...
Doğan bey deniyorum ama bir yerde hata yapıyorum bulamıyorum
 
D

DoğanD

Altın Üye
Katılım
22 Eylül 2023
Mesajlar
427
Excel Vers. ve Dili
Office 365 TR
Altın Üyelik Bitiş Tarihi
05-10-2028
Butona sağ tıkladığınızda Makro Ata seçeneği görünecektir. Açılan pencerede "Tamamm" isimli makroyu tıklayıp kaydedebilirsiniz. Yine de aşağıdaki Linki incelemek isteyebilirsiniz.

Butona Makro Atamak
 
E

ERDAL1984

Katılım
15 Kasım 2007
Mesajlar
16
Excel Vers. ve Dili
Microsoft Excel 2010
DoğanD' Alıntı:
Butona sağ tıkladığınızda Makro Ata seçeneği görünecektir. Açılan pencerede "Tamamm" isimli makroyu tıklayıp kaydedebilirsiniz. Yine de aşağıdaki Linki incelemek isteyebilirsiniz.

Butona Makro Atamak
Genişletmek için tıkla ...

Doğan bey emekleriniz için çok teşekkür ediyorum. Ne yaparsam yapayım olmuyor. Söylediğiniz şekilde yapıyorum yine olmuyor. Siz yapabilirmisiniz. kusura bakmayın yoruyorum ama. Module1 içerisine attım olmuyor. F5 ile yapıyorum çok güzel ilerliyor.

https://dosya.co/m7hrrdf1m0yt/ÜRETİM_KONTROL_DOSYASI.xlsm.html
 
E

ERDAL1984

Katılım
15 Kasım 2007
Mesajlar
16
Excel Vers. ve Dili
Microsoft Excel 2010
E

ERDAL1984

Katılım
15 Kasım 2007
Mesajlar
16
Excel Vers. ve Dili
Microsoft Excel 2010
Doğan bey bu sefer yaptım, :) çok teşekkür ederim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst