Ağırlık ve Koli Ölçülerini uygun yerlere taşıma.

[ismail-34]

Excel web ailesine bugün tekrar merhaba..

ben veri girişlerimi koli numarasını baz almadan düz olarak giriş yapmak istiyorum.

ama bir makro ile girdiğim ağırlık ve koli ölçüleri o kolinin hizasında sıralansın istiyorum.

kısaca örnekteki gibi a-j sütununun bir tıklama ile sarıyla işaretlediğim j.o sütununa benzer olmasını istiyorum.bu benim veri girişimi hızlandıracak bir unsur olacak. ve işimi çok kolaylaştıracak.

Tüm Excel web ailesine saygılar sevgiler.

 

[ÖmerFaruk]

Verdiğiniz dosyadaki sarı hücreler A2:F16 arasındaki verilerin manuel yapılmış hali değil.
İlk önce bilmeceyi sonra da sorunuzu çözmek zorunda kalacağız.

Siz A2:F16 arasındakileri doğru yerleştirin. Ona göre biz de makroyla yapalım.
Ayrıca ben olsam öyle yapmam.
A sütununa koli No, E sütununa ağırlık, F sütununa Ölçüyü girerim. Koli numaralarının sıralı olması önemli değil.
Butona basınca sıralı şekilde J-O gibi sıralama yapılabilir.

Karar sizin.

 

[ismail-34]

haklısınız çok değerli ömer faruk hocam f sütunundakileri sırala ile yapmışım onlarıda elle girilmiş gibi düzenledim ve j-o sütununda uyguladım.dosyayı yeniledim.

 

[ÖmerFaruk]

Dosya ekli değil.

 

[ismail-34]

ekledim hocam tekrar

 

[ÖmerFaruk]

Anlatamadım ya da anlaşılamadım sanırım.
Tablonuzda A:F aralığı ham verileriniz ve J:O aralığı sarı hücreler istediğiniz formatsa
A4 satırında koli numarası 2 olan 50(=E4) ağırlığındaki ve 50x50x80 (=F4) ölçülerindeki koli
Sarı bölgede neden J5 satırında 3 koli numarasıyla yer alıyor?

Bana göre J3 satırında 2 koli numarasıyla yer almalıdır.
Değilse ben halen sorunuzu anlamamışım demektir.

 

[ismail-34]

hocam çünkü 3. sıradalar a4-f4 deki veri 3. sırada olduğundan onlar 3. kolinin değerleri..yani ben koliye karşılık gelen verileri yazmadımki.koliye sırasına göre karşlık gelsin istiyorum.dolayısıyla boşuna dosyayıda değiştirmişim

 

[ismail-34]

hocam ağırlık ve koli ölçülerini değişecek yere koyduğum için sorun oluyor dimi ? aslında başka yerede koyabiliriz o verileri.

 

[Muzaffer Ali]

Merhaba.
Dener misiniz?

Sub test()
    Dim Bak As Integer
    Dim Bul As Range
    For Bak = Cells(Rows.Count, "E").End(xlUp).Row To 2 Step -1
        Set Bul = Range("A:A").Find(what:=Bak - 1, lookat:=xlWhole)
        If Bul Is Nothing Then
           MsgBox Bak & " numaralı 'Koli No' bulunamıyor. Lütfen koli ölçü sayısını kontrol ediniz."
           Exit Sub
        Else
            If Bul.Row <> Bak Then
                Range("E" & Bul.Row & ":F" & Bul.Row).Value = Range("E" & Bak & ":F" & Bak).Value
                Range("E" & Bak & ":F" & Bak).Value = ""
            End If
        End If
    Next
End Sub

 

[ismail-34]

Çok değerli Muzaffer hocam mükemmel çalışıyor hocam diğer konudaki sadece kolilere renk uygulamayıda buraya ekleyip yollayabilirseniz başka birşey istemem valla

Tekrarlayan veriler ve Biçimlendirme

Çok Değerli Excel.web.tr hocalarıma selamlar saygılar. benim sorum tekrarlayan verileri çıkaran.ve tekrarlayan satırları renk ile birbirinden daha belirgin şekilde ayıran bir liste hazırlamak üzerine olcak. kısaca a-f sütununun j-o satırı gibi olmasını istiyorum.bir makro düğmesi vasıtasıyla...

www.excel.web.tr

 

[Muzaffer Ali]

Önce bu kodu sonra öbür kodu çalıştırsanız istediğiniz olur.

Bunun adını "Test1" diğerini de "Test2" yapın.

Aşağıdaki gibi sırası ile çalıştırabilirsiniz.

sub KodlariCalistir()
    Test1
    Test2
end sub

 

[ismail-34]

Aynen hocam. 2 konuyuda birleştirdim çok güzel oldu.sağolun varolun her çalıştırdığımda son koli için ölçü bulunamadı diyor ama olsun saat gibi çalışıyor ) 2 Konuyuda birleştiren projeyi herkesle paylaşıyorum.

tekrar çok teşekkürler Muzaffer Hocam. Herşey gönlünüzce olsun.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.
Hata mesajı kodu ikinci kez çalıştırdığınızda verir, ilk çalıştırdığınızda yani koli ölçüleri ilk halindeyken vermez.

 

[ismail-34]

Rica ederim. Kolay gelsin.
Hata mesajı kodu ikinci kez çalıştırdığınızda verir, ilk çalıştırdığınızda yani koli ölçüleri ilk halindeyken vermez.

evet hocam onuda farkettim.istisnalar kaideyei bozmaz,, bi keredende bişi olmaz )) .sağolun varolun değerli hocam..