adet miktarını paket yada koliye çevirmek

[RBozkurt]

Son dolu satırı E sütunundan bulmaktadır.
401. satırı kontrol ediniz boşluk varsa doldurun.

 

[muratkul]

Son dolu satırı E sütunundan bulmaktadır.
401. satırı kontrol ediniz boşluk varsa doldurun.

Merhaba, Ben dosya yükledim, ,Kontrol ettiğimde E sütununun hiç bir satırında bir boşluk görünmüyor efendim.

 

[RBozkurt]

Şuan dosya indirme siteleri yasaklı olduğu için dosyayı indiremiyorum, müsait olunca bakmaya çalışırım.

 

[muratkul]

teşekkür ederim.

 

[RBozkurt]

Deneyiniz,

F AA 100 yazdım, E'ye 2 yazdım. Tüm hücreleri böldü.
Çalışmaz ise sonuç çıkaramadım malesef.

Sub KoliPaket()
Dim lastRow As Long
Dim lastColumn As Long
Dim i As Long
Dim j As Integer
Dim ws As Worksheet

Set ws = ActiveSheet
lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

Application.ScreenUpdating = False 'ekran güncellemesini kapat
Application.Calculation = xlCalculationManual 'otomatik hesaplamayı kapat

For i = 3 To lastRow
For j = 6 To lastColumn
If ws.Cells(i, j).Value <> "" Then
ws.Cells(i, j).Value = ws.Cells(i, j).Value / ws.Cells(i, "E").Value
End If
Next j
Next i

Application.ScreenUpdating = True 'ekran güncellemesini aç
Application.Calculation = xlCalculationAutomatic 'otomatik hesaplamayı aç

End Sub

sube_siparisleri.xlsm dosyasını indir - download

sube_siparisleri.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[muratkul]

Kusura Bakmayın Sizide Çok rahatsız ettiğimin farkındayım. Nerden bulaştım diyorsunuz belki,
Ama sizin gönderdiğiniz dosyaya göre bende yaptım oluyor, ama kendi verilerimi yükleyince olmuyor, belli bir yere kadar yapıyor daha sonra yapmıyor, belki boş sütünlar yada satırlar vardır demiştiniz ya, hesapladığı yerlerde de boşlıklar var, anlamadım birtürlü
kendi verilerimin yüklü olduğu tablo ve sizin makronuz aşağıdaki gibidir

sube_siparisleri1453.xlsm dosyasını indir - download

sube_siparisleri1453.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc