istediğimiz verileri silmek ve taşımak

[mucit2008]

ekteki örnekteki gibi veriler var son açıklama kısmında açıklamalar var. Teslim Edildi, Gönderi teslim edildi
,Kart Teslimi, iSYERiNDE DAiMi CALISANA TESLiM,(İADE) İşyerinde Bekliyor (çekmeköy) bunların tamamını satırlardan silecek. "Gönderinin Geliş Kaydı Yapıldı" olanları yeni sekmede gelişkaydı sekmesine taşıyıp sayfa1 den silmesi, "kabul edildi" olanları kabul sekmesine taşıyıp sayfa1 den silmesi,"sevk" olanları seck sekmesine taşıyıp sayfa 1 den silecek tarzı makro olabilirmi?

 

[muygun]

Merhaba;

Olabilir ama gönderim için bir standardınız yok.
Bunun için küçük bir işlem eklemesi ile yapılabilir.
Deneyin.
İyi çalışmalar.

 

[mucit2008]

Sayfaya gönder makrosu çalıstirilamiyor. Makro bu kitapta olmayabilir veya devredışı bırakılmış olabilir. Visial basic şifrelenmiş bakamıyorum birde

 

[muygun]

Merhaba;
kodlar şifreli değil. (açarken makroları etkinleştirin) Ofisinizde problem olabilir.
Gönderdiğim dosyada
Sayfa1 sayfasının kod bölümüne;

Sub sayfalara_gönder()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
sonn = s1.Range("f65536").End(xlUp).Row
say = 0
For i = sonn To 2 Step -1
If s1.Cells(i, "f") <> "" Then
Set s2 = ThisWorkbook.Worksheets(s1.Cells(i, "f").Value)
sonsatir = s2.Range("A65536").End(xlUp).Row + 1
For k = 1 To 5
s2.Cells(sonsatir, k) = s1.Cells(i, k)
Next k
say = say + 1
s1.Range("A" & i & ":f" & i).Delete Shift:=xlUp
End If
Next i
Application.ScreenUpdating = True
If say >= 1 Then MsgBox say & "Adet veri sayfalara gönderildi ve Bu sayfadan SİLİNDİ.", vbInformation
If say = 0 Then MsgBox "Tasniflenecek F sütununda seçili veri BULUNAMADI.", vbCritical
End Sub

Diğer sayfaların (Geliş kaydı,kabul,sevk) kod bölümüne

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
sat = Target.Row
If sat >= 2 And Cells(sat, 1) <> "" Then
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
sonsatir = s1.Range("A65536").End(xlUp).Row + 1
For k = 1 To 5
s1.Cells(sonsatir, k) = Cells(sat, k)
Next k
Range("a" & sat & ":e" & sat).Delete Shift:=xlUp
End If
End Sub

Kodlarını uygulayın.

Not: Benim gönderdiğim dosyada Sayfa1 sayfasında F sütununda açılır liste var. (bu gerekli)

 

[mucit2008]

telefondan göndermiştim çalışmadı. bilgisayardan indirdim sıkıntı yok dosyada. son işlem açıklma kısmında zaten veri var hepsini tek tek seçmek daha uzun filtre kısmından seçip taşımak daha kolay. silinecekleri makroyla yapamazmıyım

 

[muygun]

Merhaba;
Ekli dosyada Sayfa1 sayfasında 1. satırda gidecek sayfa isimleri, 2 satırlardan itibarende içinde aranacak verileri yazın.
Örn:
J2 hücresindeki Gönderinin Geliş Kaydı Yapıldı kelimesi E sütununda bulunan satırları Geliş kaydı sayfasına gönderir ve gönderilen veriyi Sayfa1 sayfasından siler.
K ve L sütun işlemleride aynı şekilde çalışır.
Yine Herhangi bir nedenle hatalı gönderdiğiniz veriyi gittiği sayfada A : E aralığında çift tıklayarak Sayfa1 sayfasına alabilirsiniz.
İyi çalışmalar.

 

[mucit2008]

(İADE) İşyerinde Bekliyor (çekmeköy),

iSYERiNDE DAiMi CALISANA TESLiM,

Göndericisine Teslim Edildi
bunları nasıl sildirebilirim acaba

 

[muygun]

Basit.
J,K,L sütunlarından birine (hangi sayfaya göndermek istiyorsanız) Bu veriyi yazarak