[Çözüldü]  Çek numaralarına göre kontrol

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

Çek numaralarına göre kontrol

İleti#1)  traveller_52 » 04 Mar 2020 21:57

Ekte yer alan dosyada borç sayfası B sütünunda yer alan numaralar alacak sayfasındaki D sütununda var mı var ise borç E ve alacak F sütunundaki tutarlar uyumlu ise borç G sütununda tahsil edildi eğer uyumsuzsa boş kalmasını istiyorum. Yardımcı olursanız çok sevinirim yarına yetiştirmem lazım ilginize çok teşekkür ederim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
En son Vedat ÖZER tarafından, 05 Mar 2020 10:50 tarihinde değiştirildi, toplamda 2 değişiklik yapıldı.
Sebep: Başlık değiştirildi.
Kullanıcı avatarı
traveller_52
Yeni Başlamış
 
Adı Soyadı:Bayram akkuş
Kayıt: 25 May 2014 23:09
Konum: ÇORUM/MERKEZ
Meslek: MUHASEBE
Yaş: 32
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ÇORUM

Cevap: Acil Tahsilat

İleti#2)  Vedat ÖZER » 05 Mar 2020 08:59

Merhaba,

Aşağıdaki kodu deneyebilir misiniz.

Kod: Tümünü seç
Sub KONTROL()
Dim BORC As Worksheet, ALACAK   As Worksheet, SAY As Long
Set BORC = Sheets("Borç")
Set ALACAK = Sheets("Alacak")
BORC.Columns("G:G").ClearContents
BSON = BORC.Cells(Rows.Count, "B").End(3).Row
ASON = ALACAK.Cells(Rows.Count, "D").End(3).Row
For i = 2 To BSON
   SAY = WorksheetFunction.CountIf(ALACAK.Range("D2:D" & ASON), "*" & BORC.Range("B" & i) & "*")
   If SAY > 0 Then
      For Z = 2 To ASON
         If ALACAK.Range("D" & Z) Like "*" & BORC.Range("B" & i) & "*" Then
            If BORC.Range("E" & i) = ALACAK.Range("F" & Z) Then
            BORC.Range("G" & i) = "Tahsil Edildi"
            End If
           GoTo CIK:
         End If
      Next Z
   End If
CIK:
Next i
MsgBox "İşlem Tamam", vbInformation, "Vedat ÖZER"
End Sub
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Allah bize yeter, O ne güzel vekildir.

vedatozer@outlook.com
Vedat ÖZER
Forum Moderatörü
 
Adı Soyadı:vedat özer
Kayıt: 12 Haz 2014 15:26
Konum: ANTALYA / KEMER
Meslek: MUHASEBE
Yaş: 29
İleti: 838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya

Cevap: Çek numaralarına göre kontrol

İleti#3)  traveller_52 » 05 Mar 2020 09:24

Vedat bey çok teşekkür ederim oldu. Birde alacakta hangi hücrede ise tahsil edildinin yanındaki hücreye getire biliyor muyuz
Kullanıcı avatarı
traveller_52
Yeni Başlamış
 
Adı Soyadı:Bayram akkuş
Kayıt: 25 May 2014 23:09
Konum: ÇORUM/MERKEZ
Meslek: MUHASEBE
Yaş: 32
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ÇORUM

Cevap: Çek numaralarına göre kontrol

İleti#4)  Vedat ÖZER » 05 Mar 2020 09:53

Merhaba,

Hücre adres bilgisi ve otomatik gitmesi için link ekledim inceleyin.

Kod: Tümünü seç
Sub KONTROL()
Dim BORC As Worksheet, ALACAK   As Worksheet, SAY As Long
Set BORC = Sheets("Borç")
Set ALACAK = Sheets("Alacak")
BORC.Columns("G:ı").ClearContents
BORC.Range("G1") = "Durumu"
BORC.Range("h1") = "Hücre"
BORC.Range("ı1") = "Köprü"
BSON = BORC.Cells(Rows.Count, "B").End(3).Row
ASON = ALACAK.Cells(Rows.Count, "D").End(3).Row
For i = 2 To BSON
   SAY = WorksheetFunction.CountIf(ALACAK.Range("D2:D" & ASON), "*" & BORC.Range("B" & i) & "*")
   If SAY > 0 Then
      For Z = 2 To ASON
         If ALACAK.Range("D" & Z) Like "*" & BORC.Range("B" & i) & "*" Then
            If BORC.Range("E" & i) = ALACAK.Range("F" & Z) Then
            BORC.Range("G" & i) = "Tahsil Edildi"
            BORC.Range("H" & i) = ALACAK.Range("D" & Z).Address
            BORC.Range("I" & i).Select
            ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="alacak!" & Replace(ALACAK.Range("d" & Z).Address, "$", "") & "", TextToDisplay:="Tıklayın"
            End If
            GoTo CIK:
         End If
      Next Z
   End If
CIK:
Next i
MsgBox "İşlem Tamam", vbInformation, "Vedat ÖZER"
End Sub
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Allah bize yeter, O ne güzel vekildir.

vedatozer@outlook.com
Vedat ÖZER
Forum Moderatörü
 
Adı Soyadı:vedat özer
Kayıt: 12 Haz 2014 15:26
Konum: ANTALYA / KEMER
Meslek: MUHASEBE
Yaş: 29
İleti: 838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya

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

Cevap: Çek numaralarına göre kontrol

İleti#5)  traveller_52 » 05 Mar 2020 10:32

İlginize çok teşekkür ederim
Kullanıcı avatarı
traveller_52
Yeni Başlamış
 
Adı Soyadı:Bayram akkuş
Kayıt: 25 May 2014 23:09
Konum: ÇORUM/MERKEZ
Meslek: MUHASEBE
Yaş: 32
İleti: 33
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ÇORUM

Cevap: Çek numaralarına göre kontrol

İleti#6)  Vedat ÖZER » 05 Mar 2020 10:51

Rica Ederim İyi çalışmalar dilerim.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Allah bize yeter, O ne güzel vekildir.

vedatozer@outlook.com
Vedat ÖZER
Forum Moderatörü
 
Adı Soyadı:vedat özer
Kayıt: 12 Haz 2014 15:26
Konum: ANTALYA / KEMER
Meslek: MUHASEBE
Yaş: 29
İleti: 838
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe