makroda koşul

[aygun78]

Private Sub UserForm_Activate()
İLK_SÜRE = Time
Set S1 = Sheets("rapor")
Set S2 = Sheets("mükerrer")
Set S3 = Sheets("mükerrerolmayan")
Set s4 = Sheets("sağlıkocağı")
Set S5 = Sheets("hastaneler")
Set S7 = Sheets("veri")
Set S8 = Sheets("ismegöre")
With ProgressBar1
.Min = 1
.Max = S3.[a65536].End(3).Row
End With
S8.[A2:z65536].ClearContents

s = 1
S8.Select
For x = 2 To S3.[a65536].End(3).Row

SAY = WorksheetFunction.CountIf(s4.[c2:c65536], S3.Cells(x, 3))
If SAY = 0 Then
s = s + 1
S8.Cells(s, 1) = s - 1
S8.Cells(s, 2) = S3.Cells(x, 2)
S8.Cells(s, 3) = S3.Cells(x, 3)
S8.Cells(s, 4) = S3.Cells(x, 4)
S8.Cells(s, 5) = S3.Cells(x, 5)
S8.Cells(s, 6) = S3.Cells(x, 6)
S8.Cells(s, 7) = S3.Cells(x, 7)
S8.Cells(s, 8) = S3.Cells(x, 8)
S8.Cells(s, 9) = S3.Cells(x, 9)
S8.Cells(s, 10) = S3.Cells(x, 10)
S8.Cells(s, 11) = S3.Cells(x, 11)
S8.Cells(s, 12) = S3.Cells(x, 12)
S8.Cells(s, 13) = S3.Cells(x, 13)
S8.Cells(s, 14) = S3.Cells(x, 14)
S8.Cells(s, 15) = S3.Cells(x, 15)
S8.Cells(s, 16) = S3.Cells(x, 16)
S8.Cells(s, 17) = S3.Cells(x, 17)
S8.Cells(s, 18) = S3.Cells(x, 18)
S8.Cells(s, 19) = S3.Cells(x, 19)
S8.Cells(s, 20) = S3.Cells(x, 20)
S8.Cells(s, 21) = S3.Cells(x, 21)
S8.Cells(s, 22) = S3.Cells(x, 22)
S8.Cells(s, 23) = S3.Cells(x, 23)
S8.Cells(s, 24) = S3.Cells(x, 24)

End If

Label3.Caption = "İşlenen Kayıt : " & s - 1
ProgressBar1.Value = s



Next

SON_SÜRE = Time
İŞLEM_SÜRESİ = Format((SON_SÜRE - İLK_SÜRE), "hh:mm:ss")
MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR." & vbCrLf & "İŞLEM SÜRESİ : " & İŞLEM_SÜRESİ, vbInformation

End Sub

koduyla S3 = Sheets("mükerrerolmayan") lardan s4=Sheets("sağlıkocağı") olmayanları c sütününda(adı soyadına göre) arayıp olmayanları Set S8 = Sheets("ismegöre") sayfasına aktarıyorum.Surun şu aslında sorunda değil çok küçük bi ihtimalde olsa aynı isimli olupda farklı kişilerin atlanmaması adına bu koda bi kriter daha eklemek istiyorum.s3 de g sutununda doğum tarihi mevcut

SAY = WorksheetFunction.CountIf(s4.[c2:c65536], S3.Cells(x, 3))
If SAY = 0 Then sonra s3 ve s4 deki g sütünundaki doğum tarihlerinin birbirine eşit olması durumunda atlaması olmaması durumunda s8 aktarmasını sağlamak için ne gibi ekleme yapmalıyım
"veriler gerçek olduğu için örnek ekleyemedim "

 

[Tarkan VURAL]

yanıt

"veriler gerçek olduğu için örnek ekleyemedim "

Yani diyorsunuz ki ; benim yazdığım kodlara göre sayfalarınızı kendiniz oluşturun , UserForm oluşturun, progressbar ekleyin, label ekleyin, sayfalara verileri kendiniz ekleyin vs..vs.. sonra da bu kodları alıp yapıştırın çalıştırın sorunu bulun ve çözüm üretin.

Açıkçası bunu yapacak arkadaş var mı bilemiyorum ama bir sürü vakit alacaktır.
Sahte veriler ile dosyanızı eklerseniz belki daha hızlı yardım alırsınız. Üzgünüm ama diğer türlü beklemeye devam edebilirsiniz maalesef.

 

[Ferhat Pazarçevirdi]

"veriler gerçek olduğu için örnek ekleyemedim "

Yani diyorsunuz ki ; benim yazdığım kodlara göre sayfalarınızı kendiniz oluşturun , UserForm oluşturun, progressbar ekleyin, label ekleyin, sayfalara verileri kendiniz ekleyin vs..vs.. sonra da bu kodları alıp yapıştırın çalıştırın sorunu bulun ve çözüm üretin.

Açıkçası bunu yapacak arkadaş var mı bilemiyorum ama bir sürü vakit alacaktır.
Sahte veriler ile dosyanızı eklerseniz belki daha hızlı yardım alırsınız. Üzgünüm ama diğer türlü beklemeye devam edebilirsiniz maalesef.

Doğru söze ne denilebilir ... k::

 

[aygun78]

"veriler gerçek olduğu için örnek ekleyemedim "

Yani diyorsunuz ki ; benim yazdığım kodlara göre sayfalarınızı kendiniz oluşturun , UserForm oluşturun, progressbar ekleyin, label ekleyin, sayfalara verileri kendiniz ekleyin vs..vs.. sonra da bu kodları alıp yapıştırın çalıştırın sorunu bulun ve çözüm üretin.

Açıkçası bunu yapacak arkadaş var mı bilemiyorum ama bir sürü vakit alacaktır.
Sahte veriler ile dosyanızı eklerseniz belki daha hızlı yardım alırsınız. Üzgünüm ama diğer türlü beklemeye devam edebilirsiniz maalesef.

aslında bunları demek istemiyordum ama olsun sadece konunun özetini sunmak istemiştim.ne yapmaya calıştığımı daha kolay anlata bilmek için adına göndermiştim.