"X" leri aktarda yardım

[asilme]

arkadaşlar öncelikle kolay gelsin ekli dosyayı siteden aldığım başka dosyalardan faydalanarak düzenledim çalışıyor ancak kodda aktarmak istediğimiz ve x ile belirlediğimiz yer b sütununda ben bu seçmek istediğim yani x yazacağım yeri Z sütununa gelmesini istiyorum ancak değiştirince kod bozuluyor yardım edermisiniz.birde makro 1 ve makro 2 diye iki kod var boş satırlar gizlensin ve görünsün diye niye çalışmadığını anlamadım.yardım edebilirmisiniz. not:dosya büyük olmamasına karşın niçin bu kadar ağır çalışıyor bilgisi olan varmı

 

[muygun]

Merhaba;
Dosyanızda hız açısından bir sorun göremedim.
Eki deneyin.
İyi çalışmalar.

 

[asilme]

Merhaba;
Dosyanızda hız açısından bir sorun göremedim.
Eki deneyin.
İyi çalışmalar.

hocam elinize sağlık istediğim olmuş hakkınızı helal edin sizi yorduk. satır gizleme konusunda makro 1 makro 2 vardı niye çalışmadığı konusunda bilginiz varmı bakabildinizmi

 

[sametozyavuz]

ben bişeyler yapmaya çalışırken muygun bey yapmış bile.
üstatlarımız çok hızlı.
kayıp eşya sayfasının koduna gizlee makrosunu da eklerseniz 2 iş yapmaktan kurtulursunuz.
hem x ler aktarılmış olur. hemde boşluklar gizlenmiş.

Sub X_aktarr()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("KAYIP EŞYA")
Set s2 = ThisWorkbook.Worksheets("aylık kayıp eşya")
For i = 6 To s1.Range("B65536").End(xlUp).Row
sonsatir = s2.Range("B65536").End(xlUp).Row + 1
If (s1.Cells(i, "z") = "X" Or s1.Cells(i, "z") = "x") Then
s2.Cells(sonsatir, "a") = sonsatir - 4
s2.Cells(sonsatir, "b") = s1.Cells(i, 2)
s2.Cells(sonsatir, "c") = s1.Cells(i, 3)
s2.Cells(sonsatir, "d") = s1.Cells(i, 4)
s2.Cells(sonsatir, "e") = s1.Cells(i, 5)
s2.Cells(sonsatir, "f") = s1.Cells(i, 6)
s2.Cells(sonsatir, "g") = s1.Cells(i, 7)
s2.Cells(sonsatir, "h") = s1.Cells(i, 8)
s2.Cells(sonsatir, "ı") = s1.Cells(i, 9)
s2.Cells(sonsatir, "j") = s1.Cells(i, 10)
s2.Cells(sonsatir, "k") = s1.Cells(i, 11)
s2.Cells(sonsatir, "l") = s1.Cells(i, 12)
s2.Cells(sonsatir, "m") = s1.Cells(i, 13)
s2.Cells(sonsatir, "o") = s1.Cells(i, 14)
s2.Cells(sonsatir, "p") = s1.Cells(i, 15)
s2.Cells(sonsatir, "m") = s1.Cells(i, 16)
s2.Cells(sonsatir, "q") = s1.Cells(i, 17)
s2.Cells(sonsatir, "r") = s1.Cells(i, 18)
s2.Cells(sonsatir, "s") = s1.Cells(i, 19)
s2.Cells(sonsatir, "t") = s1.Cells(i, 20)
s2.Cells(sonsatir, "u") = s1.Cells(i, 21)
s2.Cells(sonsatir, "v") = s1.Cells(i, 22)
End If
Next i
Call gizlee
  Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

 

[asilme]

eline sağlık samet hocam ama muygun hocam sağolsun yapmış ilgi alaka ve yardımlarınız için teşekkürler

 

[asilme]

arkadaşlar dosyayı bilgisaya yükledim temizle butonu ve gizli göster makrosu çalışmıyor yardım edebilirmisiniz

 

[muygun]

Merhaba;
Ofis 2003 versiyonundaki denememde;
Mesaj 2 ekinde aylık kayıp eşya sayfasında gizle göster butonları işlem yapıyor.
Son eklediğiniz 6 nolu mesaj ekinde de butonlara makroyu atayınca çalışıyor.
Sorunun ne olduğunu anlamadım.!

 

[asilme]

Merhaba;
Ofis 2003 versiyonundaki denememde;
Mesaj 2 ekinde aylık kayıp eşya sayfasında gizle göster butonları işlem yapıyor.
Son eklediğiniz 6 nolu mesaj ekinde de butonlara makroyu atayınca çalışıyor.
Sorunun ne olduğunu anlamadım.!

ben 2010 versiyonunu kullanıyorum çalıştıramadım . herşey güzel oldu çalışıyor bilen varsa şu gizli göster komutunu 2010 a ( XLSM) uygulamayı gösterirse veya yaparsaçokmemnun olurum teşekkürler

 

[sametozyavuz]

ben 2010 versiyonunu kullanıyorum çalıştıramadım . herşey güzel oldu çalışıyor bilen varsa şu gizli göster komutunu 2010 a ( XLSM) uygulamayı gösterirse veya yaparsaçokmemnun olurum teşekkürler

ekteki dosyayı inceleyiniz.
kodları biraz değiştirdim.
artık tek düğme ile
önce aylık kayıp eşya temizlenecek
sonra x ler aktarılacak
son olarak da boş hücreler gizlenecek.
umarım beğenirsiniz.

düğme eklemeleri excel versiyonları arasında sıkıntı yapabiliyor. ben bu yüzden şekil ekleyip makro atıyorum. o sanki daha garantili gibi.

 

[asilme]

benim için mükemmel bir çalışma teşekkürler hakkını helal et seni yorduk