Başka Sayfaya Aktar

[SİBEL70]

Merhabalar

Ekteki excel dosyasında Sayfa1 deki personel listesinde G sütununda ayrıldı ifadesi yazanları butona tıklayınca Sayfa 1den ilgili satırı silip, ayrılanlar sayfasına aktarabilmek için yardımınıza ihtiyacım var. Listede yeni ayrılanlar oldukça ayrılanlar sayfasında önceki kayıtları silmeden boş olan ilk satıra kayıt almam gerekiyor destekleyebilirseniz sevinirim

 

[dEdE]

Merhaba
Aşağıdaki kodları bir modüle yapıştırarak dener misiniz.

Sub Aktar()
Application.ScreenUpdating = False
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("AYRILANLAR")

For i = 1 To s1.[G65536].End(3).Row
    If Cells(i, "G").Value = "ayrıldı" Then
        ss = s2.[G65536].End(3).Row + 1
        s1.Rows(i).Copy s2.Rows(ss)
    End If
Next

For k = s1.[G65536].End(3).Row To 2 Step -1
    If Cells(k, "G").Value = "ayrıldı" Then Rows(k).Delete
Next k
Application.ScreenUpdating = True
    MsgBox "Aktarma işlemi tamamlanmıştır.", vbInformation
End Sub

 

[polis-53]

Merhabalar UserForm üzerinden seçilen veriyi aktara işi nasıl yapılır

 

[SİBEL70]

Merhabalar dEdE
desteğin için teşekkürler.. kod çok işime yaradı. Eline koluna sağlık

 

[dEdE]

Merhabalar UserForm üzerinden seçilen veriyi aktara işi nasıl yapılır

Merhaba,
Sorunuzu örnek dosya ile destekler ve ne istediğinizi açıkca belirtirseniz forum üyeleri yardımcı olurlar.
Sorunuz bu konu ile uyumlu değilse (ki öyle görünüyor) yukarıdaki açıklamayı da dikkate olarak yeni başlık açmanızı öneririm.

 

[polis-53]

Emekli olanları aktar

Merhabalar UserForm üzerinden seçilen veriyi Emekli aktar butonuna bastığımda Liste Sayfasındaki verilerin R Sutununda Emekli Yazanları Sayfa2 e Aktarsın ve Liste sayfasın sıralama bozulacağından sıralamasını yeniden düzenlesin

 

[dEdE]

... Liste Sayfasındaki verilerin R Sutununda Emekli Yazanları Sayfa2 e Aktarsın ve Liste sayfasın sıralama bozulacağından sıralamasını yeniden düzenlesin

Merhaba,
* Liste sayfanızın R sütununda birşey yazmıyor. Galiba H sütunu demek istediniz.
* Dosyanızda Sayfa2 bulunmuyor. Ekleriz
*Aradan satır aktarılınca(silinince) sıralama neden bozulsun ki? Bu arada listeniz neye göre sıralı? Yeniden düzenlemek için ölçüt ne olacak. Adı mı? Eğitimi mi? Doğum tarihi mi?........

 

[polis-53]

Liste sayfanızın R sütununda birşey yazmıyor. Galiba H sütunu demek istediniz.
* Dosyanızda Sayfa2 bulunmuyor. Ekleriz
*Aradan satır aktarılınca(silinince) sıralama neden bozulsun ki? Bu arada listeniz neye göre sıralı? Yeniden düzenlemek için ölçüt ne olacak. Adı mı? Eğitimi mi? Doğum tarihi mi?........
*Günaydın dEdE Sayfa1 de Aktaracak
*Araradan satır aktarılınca(Silince) sıra numaralarını demek istemiştim yani 25,26,27...gibi 26 sıra numaralı kaydı sildiğimde 25,27... gibi olmasın 25,26,27... gibi tekrar sıra numaralandırsın listeden H sutununa göre aktarsın

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

Private Sub CommandButton14_Click() 'Emekli
    Set S1 = Sheets("LİSTE")
    Set s2 = Sheets("Sayfa1")
For i = 1 To S1.[A65536].End(3).Row
    If Cells(i, "H").Value = "EMEKLİ" Then
        ss = s2.[G65536].End(3).Row + 1
        S1.Rows(i).Copy s2.Rows(ss)
    End If
Next
For k = S1.[A65536].End(3).Row To 2 Step -1
    If Cells(k, "H").Value = "EMEKLİ" Then Rows(k).Delete
Next k
    
    S1.[A1] = 1
    S1.[A1].Select
    Selection.AutoFill Destination:=Range("A1:A" & S1.[A65536].End(3).Row), Type:=xlFillSeries
    MsgBox "Aktarma işlemi tamamlanmıştır.", vbInformation
End Sub

 

[polis-53]

İyi akşamlar UserFormu Açmıyor "Compile error: Can't find project library" böyle bir hata verni neden acaba

 

[dEdE]

Merhaba,
UserFormun açılmaması için bir neden yok. Eklediğiniz örnek dosyaya bir sayfa ve yukarıdaki kodu ekledim.
Örnek dosyanızda bir sorun yoksa, dosyanıza bir sayfa ekledikten sonra yukarıdaki kodu UserFormun koduna ekleyip dener misiniz?

 

[polis-53]

Günaydın Sayın dEdE bir sorum daha olacak ListView de seçtiğim veride verilerin birini değiştirip değiştir butonuna bastığımda ListView den veriler kayboluyor Userfomdan çıkıp tekrar girdiğimde veriler geliyor bunada bir bakarmısınız?

 

[musdaa_007]

Bnm konumda 2 ayrı sayfadaki listelerden farklı olanı 3. bi sayfaya aktaran programı arıyorum ama bulamadım yardımcı olrmusunz. Örnegin sayfa 1 de elma armut ayva sayfa 2 de elma armut varsayalım. Buradaki ayvayı 3. sayfaya aktaran bi program. teşekkürler