veri silerek aktarma yapma

[orcunerkek54]

herkeze iyi akşamlar benim sorunum listform sayfa1deki verilerin aynı olanların sadece 1er tanesini görüntüleyecek ancak ben listformdan seçip başka sayfaya gitmesini istediğimde veriler sayfa1 den silinecek ve diğer sayfaya geçecek bu mümkünmüdür yardımcı olursanız sevinirim şimdiden herkeze teşekkürler

 

[Levent Menteşoğlu]

Userforma; listboxa verileri yüklemek için aşağıdaki kodu yazın.

[vb:1:b042cf5516]Private Sub UserForm_Initialize()
For a = 8 To [e65536].End(3).Row
If WorksheetFunction.CountIf(Range("f8:f" & a), Cells(a, "f")) = 1 Then ListBox1.AddItem Cells(a, "f")
Next
End Sub
[/vb:1:b042cf5516]

Commandbuttonada aşağıdaki kodu yazın.

[vb:1:b042cf5516]Private Sub CommandButton1_Click()
Set s1 = Sheets("ÇIKTI ALMA FORM SAYFASI")
s1.[b7:h65536].ClearContents
For a = [e65536].End(3).Row To 8 Step -1
If Cells(a, "f") = ListBox1.Value Then
c = c + 1
s1.Cells(c + 6, "b") = c
s1.Cells(c + 6, "c") = Cells(a, "d")
s1.Cells(c + 6, "d") = Cells(a, "e")
s1.Cells(c + 6, "e") = Cells(a, "g")
s1.Cells(c + 6, "g") = Cells(a, "c")
s1.[d4] = Cells(a, "h")
s1.[d3] = ListBox1.Value
adr = "c" & a & ":i" & a
Range(adr).Delete
End If
Next
MsgBox "SEÇİLEN VERİYE AİT BİLGİLER AKTARILDI"
End Sub[/vb:1:b042cf5516]

 

[orcunerkek54]

syn leventm bey çok teşekkür ederim beni eziyetten kurtardınız saolun herkeze teşekkür ederim :hihoho: :mutlu: :arkadas: ost:

 

[SanaLSukuL]

Coomandbutton ile silerek diğer sayfaya aktarma

Sayın orcunerkek54 in formunda user form ve listboxlar kullanılıyor.
Biz bunu hücreler arası COMMANDBUTTON ile yapabilirmiyiz.
DATA sayfasındaki SİL e tıkladığımızda
DATA daki C4 ten silinip MAZİ C4 e
DATA daki D4 ten silinip MAZİ D4 e
DATA daki E4 ten silinip MAZİ E4 e yazılsa.

Bir sorum daha olacak mümkünse eğer
DATA sayfasındaki
sözleşmeli yazan hücredeki Öğretmenlerin bilgileri sözleşmeli sayfasına
kadrolu yazanlar kadrolu sayfasına
ücretli yazanlar ise ücretli sayfası na otomatik yazsa.
Yaptığım formda burada açıklayamadıklarım var burda açıklama baya bir uzun sürüyor.
Yardımcı olursanız sevinirim. Teşekkür ederim
BÜTÜN FORM ÜYELERİNİN VE YÖNETİCİCERİNİN YENİ YILINI KUTLARIM. MUTLU YILLAR...