Güncelleştir - Buton- İki Ayrı Sayfadaki verilerin kontrolü

[ayhan3477]

Değerli Üstadlarım,

yapmış olduğum ek te yer alan excell kitabında 2.sayfada,
Guncelle adında bir buton ile

eğer, 2. sayfada yer alan isimlerden birisi 1. sayfada yok ise 2.sayfada o ismin karşısına AYRILDI var ise de ÇALIŞIYOR ibaresinin gelmesi gibi bir olgu kurabilme şansımız var mıdır ?

formül ile yaptığımda her açılışda tek tek kontrol edildiğinde dosyanın açılması çok uzun sürüyor bu nedenle istenildiğinde buton ile çalışsın istedim açıkçası,,

emeğinize saygı, teşekkürler,
Ayhan Baykal

 

[İhsan Tank]

Değerli Üstadlarım,

yapmış olduğum ek te yer alan excell kitabında 2.sayfada,
Guncelle adında bir buton ile

eğer, 2. sayfada yer alan isimlerden birisi 1. sayfada yok ise 2.sayfada o ismin karşısına AYRILDI var ise de ÇALIŞIYOR ibaresinin gelmesi gibi bir olgu kurabilme şansımız var mıdır ?

formül ile yaptığımda her açılışda tek tek kontrol edildiğinde dosyanın açılması çok uzun sürüyor bu nedenle istenildiğinde buton ile çalışsın istedim açıkçası,,

emeğinize saygı, teşekkürler,
Ayhan Baykal

merhaba
boş bir module kopyalayın ve deneyin

Option Explicit
Sub açıklama()
Dim ts, kaplan
kaplan = MsgBox("Açıklamaları Çıkartayım Mı_", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
For ts = 3 To Sheets("Sayfa2").Cells(65536, "B").End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("C3:C65536"), _
Sheets("Sayfa2").Cells(ts, "B")) > 0 Then
Sheets("Sayfa2").Cells(ts, "C") = "ÇALIŞIYOR"
Else
Sheets("Sayfa2").Cells(ts, "C") = "AYRILDI"
End If
Next
MsgBox "Açıklamalar Çıkarıldı", vbInformation, "Onay"
End Sub

 

[ayhan3477]

tesekkıurler

ustadım tesekkur ediyorum Allah Razı Olsun...
ancak çalıştırdığımda aşağıdaki hatayı veriyor bana



Option Explicit
Sub açıklama()
Dim ts, kaplan
kaplan = MsgBox("Açıklamaları Çıkartayım Mı_", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
For ts = 3 To Sheets("IZINTAKIP").Cells(65536, "B").End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("Servis Dağılım").Range("C3:C65536"), _
Sheets("Sayfa2").Cells(ts, "B")) > 0 Then
Sheets("Sayfa2").Cells(ts, "C") = "ÇALIŞIYOR"
Else
Sheets("IZIN").Cells(ts, "C") = "AYRILDI"
End If
Next
MsgBox "Açıklamalar Çıkarıldı", vbInformation, "Onay"
End Sub



ben sayfa isimlerini reele çevirdim.. sanırım bir yerde hata yaptım

 

[İhsan Tank]

ustadım tesekkur ediyorum Allah Razı Olsun...
ancak çalıştırdığımda aşağıdaki hatayı veriyor bana



Option Explicit
Sub açıklama()
Dim ts, kaplan
kaplan = MsgBox("Açıklamaları Çıkartayım Mı_", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
For ts = 3 To Sheets("IZINTAKIP").Cells(65536, "B").End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("Servis Dağılım").Range("C3:C65536"), _
Sheets("Sayfa2").Cells(ts, "B")) > 0 Then
Sheets("Sayfa2").Cells(ts, "C") = "ÇALIŞIYOR"
Else
Sheets("IZIN").Cells(ts, "C") = "AYRILDI"
End If
Next
MsgBox "Açıklamalar Çıkarıldı", vbInformation, "Onay"
End Sub



ben sayfa isimlerini reele çevirdim.. sanırım bir yerde hata yaptım

kırmızı yerleri atlamışsınız
orda sayfa ismini fazla yazmış olabilir misiniz
mesela mavi yerde sadece izin yazıyor diğer yerde izintakip
bunlara dikkat etmelisiniz
yapamazsanız dosyayı gönderin düzenliyelim

 

[ayhan3477]

çözdümmm

Üstadım çözdüm olayı sheet adlarını hatalı yazmısım duezeltirken
birşey daha sormak istiyorum ama,

ayrıldı olarak gelen ismin karşısındaki 6 hucrenin rengi mavi olsun gibi bir eklemeyi nasıl yapabilirim

 

[İhsan Tank]

Üstadım çözdüm olayı sheet adlarını hatalı yazmısım duezeltirken
birşey daha sormak istiyorum ama,

ayrıldı olarak gelen ismin karşısındaki 6 hucrenin rengi mavi olsun gibi bir eklemeyi nasıl yapabilirim

merhaba
kodu bununla değiştirin

Option Explicit
Sub açıklama()
Dim ts, kaplan
kaplan = MsgBox("Açıklamaları Çıkartayım Mı_", vbYesNo, "Onay")
If kaplan = vbNo Then Exit Sub
For ts = 3 To Sheets("Sayfa2").Cells(65536, "B").End(xlUp).Row
If WorksheetFunction.CountIf(Sheets("Sayfa1").Range("C3:C65536"), _
Sheets("Sayfa2").Cells(ts, "B")) > 0 Then
Sheets("Sayfa2").Cells(ts, "C") = "ÇALIŞIYOR"
Else
Sheets("Sayfa2").Cells(ts, "C") = "AYRILDI"
Sheets("Sayfa2").Cells(ts, "C").Interior.Color = vbBlue
End If
Next
MsgBox "Açıklamalar Çıkarıldı", vbInformation, "Onay"
End Sub

 

[ayhan3477]

Allah razı olsun teşekkur ettim ihsan bey.

 

[İhsan Tank]

Allah razı olsun teşekkur ettim ihsan bey.

rica ederim
:yazici: