verilerde sayfa isimlerini kontrol edip olmayan veriyi gecici sayfasına kaydetmek

[millis]

Sorum şu; Bir userformum var bu formda Adı Soyadı, ödeme miktarı girişi diye bir TextBox'ım var. bu kısıma isimleri girdiğimde kayıtlı sayfalarda bu isime ait bir sayfa var ise ödeme miktarını kişiye ait sayfaya yazdırsın yok ise geçici kayıt sayfası diye bir sayfaya aktarsın. Bu işlem nasıl yapılabilir. Üstadlardan yardım bekliyorum. ( Acil ) hepinize şimdiden teşekkür ediyorum. Kolay gelsin

 

[Recep İpek]

Ekteki örnek size fikir verebilir.

Private Sub CommandButton1_Click()
Dim sadi As Variant
Dim durum As Boolean
durum = False
For Each sadi In Worksheets
If UCase(sadi.Name) = UCase(ComboBox1.Value) Then
durum = True
Set s1 = Sheets(sadi.Name)
sat = s1.[a65536].End(3).Row + 1
s1.Cells(sat, "a").Value = ComboBox1.Value
s1.Cells(sat, "b").Value = TextBox1.Value * 1
End If
Next

If durum = False Then
Set s1 = Sheets("GEÇİCİ")
sat = s1.[a65536].End(3).Row + 1
s1.Cells(sat, "a").Value = ComboBox1.Value
s1.Cells(sat, "b").Value = TextBox1.Value * 1
End If

Set s1 = Nothing
MsgBox "Kayıt İşlemi Tamamlandı."
End Sub

 

[millis]

Teşekkürler

Ekteki örnek size fikir verebilir.

Private Sub CommandButton1_Click()
Dim sadi As Variant
Dim durum As Boolean
durum = False
For Each sadi In Worksheets
If UCase(sadi.Name) = UCase(ComboBox1.Value) Then
durum = True
Set s1 = Sheets(sadi.Name)
sat = s1.[a65536].End(3).Row + 1
s1.Cells(sat, "a").Value = ComboBox1.Value
s1.Cells(sat, "b").Value = TextBox1.Value * 1
End If
Next

If durum = False Then
Set s1 = Sheets("GEÇİCİ")
sat = s1.[a65536].End(3).Row + 1
s1.Cells(sat, "a").Value = ComboBox1.Value
s1.Cells(sat, "b").Value = TextBox1.Value * 1
End If

Set s1 = Nothing
MsgBox "Kayıt İşlemi Tamamlandı."
End Sub

Arkadaşım ellerine ve bilgine sağlık. Çok faydalı oldu. Bilgini paylaştığın için sonsuz teşekkürler, saygılar.