Sayfa1 ile Sayfa2 karşılaştırıp gereksiz bilgiler silinecek.

[unur]

Arkadaşlar günaydın,
Arkadaşlar ekte gönderdiğim dosyada Sayfa1 de bulunan 1.satırda bulunan bilgilerle Sayfa2 de 1 satırdaki bilgiler karşılaştırılacak.
Sayfa2 deki bilgilerin birçoğu gereksiz olduğu için sayfa1 deki bilgiler haricinde diğerleri sutun olarak silinecek.
Böyle bir kod yazılabilirmi?
Teşekkürler.

 

[juniourfalcon]

şimdi sayfa 2 den sayfa 1 e aktaracaksan tek sayfada yap ve fazlalıkları kullanma o kadar kod yazamaya gerek yokki

 

[unur]

Aktarma yapmayacağım sadece sayfa1 kriter olarak sabit kalacak, Sayfa2 nin gereksiz sutunlarını sayfa1 e bakarak silecek bir kod lazım. Örnek sayfa olarak koydum bunu ben, yoksa sayfa2 deki dolu sütün sayısı 200 civarında.

 

[unur]

Bu konuda arkadaşların yardımını bekliyorum.

 

[unur]

Bu konuda fikri olan arkadaş yokmu?

 

[unur]

Sitede yaptığım araştırmalarda aşağıdaki kodları buldum ancak kod ile ilgili bilgim olmadığı için revizyon yapamıyorum.
Sayfa1'in ilk satırını kriter olarak kabul edecek, Sayfa2 nin ilk satırındaki bilgilerle karşılaştırıp sayfa1 deki bilgiler hariç, Sayfa2 deki gereksiz sütunlar silecek.
Yardımcı olursanız sevinirim.Teşekkürler.



Sub SİL_3()
'C SÜTUNUNDA HİÇ DOLU HÜCRE YOKSA C SÜTUNUNU SİLER.
If WorksheetFunction.CountA(Columns("C")) = 0 Then Columns("C").Delete
End Sub


bu kod da değerleri "0" ise o kolonları siler

Sub kolonsil()
For x = 1 To 256
If Cells(2, x).Value = "0" Then
Columns(x).Select
Selection.Delete Shift:=xlToLeft
End If
Next
End Sub

 

[unur]

Bu kodlarda revizyonununda yardımcı olacak arkadaş yokmu?

 

[Husgvarna]

Bu kodlarda revizyonununda yardımcı olacak arkadaş yokmu?

Sanırım istediğiniz şöyle:

 Sub SİL()

For a = 2 To Range("ıv1").End(xlToLeft).Column
For b = 2 To Sheets("Sayfa2").Range("ıv1").End(xlToLeft).Column
If Cells(1, a).Text = Sheets("Sayfa2").Cells(1, b).Text Then _
Sheets("Sayfa2").Columns(b).Delete Shift:=xlToLeft
Next: Next
End Sub

 

[unur]

Hugsvarna Teşekkürler , Kodlar siliyor ancak neye göre sildiğini pek anlamadım ama silmemesi gereken bilgileri siliyor.Silinmesi gereken bilgilerden kalanlar var.

Peki şöyle bir şey yapılabilir mi? Birinci sayfayı kıriter olarak kabul etmesek. Kodların içine sayfanın birinci satırında A sütunundan T Sütununa kadar çeşitli veriler var ve örn: B sütununda Em.San nu, E Sütununda Adı, F sütununda Soyadı, K sütünunda da Sicil numarası sicil numarası olduğunu varsayalım. Bunların Yukarıda yazdıklarım haricindeki dolu ve gereksiz bilgiler olan sütunları silmek istiyorum.
Silme işlemi yapan kodlarda sütun ismi (A,B,C,D) değilde (Em.San.nu, Adı, Soyadı, Sicil Numarası) haricindekileri sil diyebilirmiyiz.

 

[Husgvarna]

Silme işlemi yapan kodlarda sütun ismi (A,B,C,D) değilde (Em.San.nu, Adı, Soyadı, Sicil Numarası) haricindekileri sil diyebilirmiyiz.

Aşağıdaki gibi deneyin.

Private Sub CommandButton1_Click()

For b = Sheets("Sayfa2").Range("ıv1").End(xlToLeft).Column To 2 Step -1
If Sheets("Sayfa2").Cells(1, b).Text <> "EM.SAN.NU" And _
Sheets("Sayfa2").Cells(1, b).Text <> "ADI" And _
Sheets("Sayfa2").Cells(1, b).Text <> "SOYADI" And _
Sheets("Sayfa2").Cells(1, b).Text <> "MHALI_SICIL" Then _
Sheets("Sayfa2").Columns(b).Delete Shift:=xlToLeft
Next
End Sub

 

[unur]

Husgvarna çok teşekkürler. Elinize sağlık.