yatayda bulunan iki hücreye ait bilginin düşeydekiler ile karşılaştırarak listeleme

[delao42]

merhabalar,

ekte koyduğum dosyada mahal listesi adlı çalışma belgesinde,

yatay olarak bir pozda belirtilen malzemeye ilişkin farklı mekanlarda bunların miktarları var.

ben bunları olması istenen hal adlı çalışma kitabında belirttiğim üzere mahal mahal ayırmak, ve her mahale mahalin kodunu yazdırmak, mahalde tüm malzemelerin adlarını ve poz numaralarını yaptırmak istiyorum.

yardımlarınız için şimdiden teşekkür ederim.

 

[mesuttasar]

Boş bir modüle aşağıdaki kodu yazıp deneyin , istediğiniz gerçekleşecektr.

Sub AA()
Dim i, j As Integer
Dim k As Range
Set s1 = Sheets("MAHAL LİSTESİ")
Set s2 = Sheets("olması istenen hal")
For j = 8 To 204
For i = 4 To 170
s1.Select
If Cells(i, j) = "" or cells(i,j)=0 Then GoTo 10 Else
Cells(i, j).Select
s2.Select
ss = [B65536].End(3).Row + 1
s2.Cells(ss, 1) = "MEKAN ADI: "& s1.Cells(2, j) & " MEKAN KODU: " & s1.Cells(3, j)
s2.Cells(ss, 2) = s1.Cells(i, 2)
s2.Cells(ss, 3) = s1.Cells(i, 3)
s2.Cells(ss, 4) = s1.Cells(i, j)
s2.Cells(ss, 5) = s1.Cells(i, 4)
10
Next i
Next j
End Sub

 

[mesuttasar]

Kodlar istediğiniz işlemi yapıyor ama yaklaşık 32.000 döngü çevirdiği için işlemin bitmesi yaklaşık 10 dakikayı buluyor.Merak ettiğim sayın uzman arkadaşlar , acaba işlemi daha kısa halledebilecek bir kod yazılamaz mı?

 

[delao42]

teşekkür ederim.

 

[mesuttasar]

teşekkür ederim.

rica ederim iyi çalışmalar

 

[mesuttasar]

Makro çalıştırıldığında işlem yapılıyor ancak 10 dakika gibi bir sürede işlem tamamlanabiliyor. Olması istenen hal isimli sayfadaki veriler makro ile üretilmiştir.yaklaşık 2000 satırdan oluşuyor.Bu 10 dakikalık zaman , faklı kodlar yazılarak kısaltılabilirmi?