Soru başka sayfaya aktarırken uyarı mesajı vermesi

[NADİR YILDIZ]

Arkadaşlar merhaba
ekteki çalışmamda Portal sayfasını ZİRVE FT MÜKERRER KONTROL sayfasına aktarım yapıyorum burada sorun yok
benim istediğim portal Sayfasının F sütununda kırmızı olan Reddedildi kelimesi varsa ZİRVE FT MÜKERRER KONTROL sayfasına aktarım yapmasın RED FATURALARI AKTARMANIZ GEREKİYOR şeklinde uyarı mesajı vermesini istiyorum..
Reddedildi kelimesi yazan satırları RED FATURA AKTAR butonu ile RED FATURALAR sayfasına aktarım yapmasını istiyorum..
RED FATURALAR sayfasına aktarım yaptıktan sonra ZİRVE FT MÜKERRER KONTROL sayfasına aktarım yapsın
ancak benim için burada asıl önemli olan iki husus var;
birincisi Reddedildi kelimesi olanları direkt RED FATURALAR a aktarması aktarırken bu aktarılan satırların silinmesi
ikincisi RED FATURALAR sayfasına bu şekilde devamlı aktarım yapacağım için aktarılanların altına alt alt aktarmasını istiyorum.

 

[NADİR YILDIZ]

Arkadaşlar bu konuda yardımcı olabilicek misiniz ?

 

[RBozkurt]

Sayın @NADİR YILDIZ
Olaya hakim olduğunuz için metin akıcı geliyor fakat defalarca okudum canlandıramıyorum maalesef.
Defalarca okuyorum, diğer arkadaşlarda aynı şekildedir muhtemelen. Aşağıdaki işlemler doğru mu?
Yoğun işlemler bu şekilde eklenirse daha kolay olur.

Sayfalar
*PORTAL
*ZİRVE FT MÜKERRER KONTROL
*RED FATURALAR

1. işlem
PORTAL sayfasında REDDEDİLDİ varsa mesaj ile uyarı verecek.

2. işlem
RED FATURA AKTAR butonuna basınca yukarıda uyarı veren satır veya satırları RED FATURALAR sayfasına taşıyacak.

3. işlem
Yukarıdaki işlemden sonra PORTAL sayfasında REDDEDİLDİ verisi olan satırlar olmayacağı için çalışmanızdaki ZİRVE FT MÜKERRER KONTROL AKTAR makrosu çalışacak.

 

[RBozkurt]

Mesela F35 satırına dair
A35 ile L35a arasını taşıdı diyelim AV'ye kadar veri var. Bu veriler ne olacak?

F35 satırı komple mi silinecek? Yada A35 L35 arası taşınırken diğerleri kalacak mı?

 

[NADİR YILDIZ]

Sayın @NADİR YILDIZ
Olaya hakim olduğunuz için metin akıcı geliyor fakat defalarca okudum canlandıramıyorum maalesef.
Defalarca okuyorum, diğer arkadaşlarda aynı şekildedir muhtemelen. Aşağıdaki işlemler doğru mu?
Yoğun işlemler bu şekilde eklenirse daha kolay olur.

sayın bozkurt evet akış aynı bu şekilde olacak

 

[NADİR YILDIZ]

Mesela F35 satırına dair
A35 ile L35a arasını taşıdı diyelim AV'ye kadar veri var. Bu veriler ne olacak?

F35 satırı komple mi silinecek? Yada A35 L35 arası taşınırken diğerleri kalacak mı?

A35 ile L35a arasını taşırken F35 satırı komple silinecek

teşekkürler

 

[NADİR YILDIZ]

Sayın Bozkurt
işlem şu şekilde ilerliyor
1-ZiRVE FT MÜKERRER KONTROL AKTAR( mavi buton) Butonuyla başka sayfaya aktarım yapıyorum
2-Eğer F sütununda REDDEDİLDİ varsa bu butona bastığımda RED FATURALARI AKTARMANIZ GEREKİYOR şeklinde uyarı mesajı çıkması istiyorum
3-Bu REDDEDİLDİ geçen satırları RED FATURALAR sayfasına aktarırken REDDEDİLDİ yazan satıları silmesini istiyorum.
4-RED FATURALAR sayfasında da alt alt aktarım yapılmasını istiyorum
5-ZiRVE FT MÜKERRER KONTROL AKTAR( mavi buton) bastığımda RED FATURALARI AKTARMANIZ GEREKİYOR mesajı çıkmasını istiyorum.
bu REDDEDİLDİ geçen ft lar RED FATURALAR sayfasına aktarılmadan ZiRVE FT MÜKERRER KONTROL AKTAR( mavi buton) işlemi gerçekleştirmesin

Teşekkürler iyi çalışmalar

 

[RBozkurt]

F sütununda REDDEDİLDİ içeren satır varsa uyarı verir.

Sub ReddedildiKontrol()
    Dim lastRow As Long
    Dim i As Long
    lastRow = Worksheets("PORTAL").Cells(Rows.Count, "F").End(xlUp).Row
   
    For i = 7 To lastRow
        If Worksheets("PORTAL").Range("F" & i).Value = "REDDEDİLDİ" Then
            MsgBox "Uyarı: Reddedildi durumunda olan satırlar var!"
            Exit Sub
        End If
    Next i
    'Reddedildi durumunda olan satır yoksa AAAA makrosunu çalıştır,
    Call AAAA
End Sub

*****


REDDEDİLDİ içeren satıra ait A:L arasını B:M aralığına kopyalar ve bu satırı siler.

Sub RedFaturaTasi()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow As Long, i As Long, pasteRow As Long
  
    Set ws1 = ThisWorkbook.Sheets("PORTAL")
    Set ws2 = ThisWorkbook.Sheets("RED FATURALAR")
  
    lastRow = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    pasteRow = ws2.Cells(ws2.Rows.Count, "B").End(xlUp).Row + 1
  
    For i = 7 To lastRow
        If ws1.Range("F" & i).Value = "REDDEDİLDİ" Then
            ws1.Range("A" & i & ":L" & i).Copy
            ws2.Range("B" & pasteRow & ":M" & pasteRow).PasteSpecial xlPasteValues
            ws1.Rows(i).Delete
            i = i - 1
            pasteRow = pasteRow + 1
        End If
    Next i
End Sub

 

[NADİR YILDIZ]

Sayın bozkurt teşekkür ederim

iyi çalışmalar

 

[RBozkurt]

Sayın bozkurt teşekkür ederim

iyi çalışmalar

Kolay gelsin, iki kod işi görür,

Mesaj kodunu butona atayıp, diğer kodu da mesaj içine atarsınız,