Formül yardım

[unfors]

Dim son As Long
son = Sheets("ÜRÜN_MALİYET_FORMU").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To son
Sheets("ÜRÜN_MALİYET_FORMU").Range("K" & i).Formula = "=(I" & i & ")*(J" & i & ")"
Sheets("ÜRÜN_MALİYET_FORMU").Range("I" & i).Formula = "=(N" & i & ")*(G" & i & ")"
Next

Yukarıdaki formülde N Sutuna aşağıdaki formüldeki değer gelsin istiyorum.
(URUN ADEDI satırlarda baslık olarak duruyor ve karşısında sayı yazılı ama Sutunlardaki yeri sabit)

For i = 4 To 5500
If Sheets("ÜRÜN_MALİYET_FORMU").Cells(i, 6).Value = "URUN ADEDI" Then
Sheets("ÜRÜN_MALİYET_FORMU").Range("G" & LastRow & i).Select
End If
Next

 

[Korhan Ayhan]

Sorunuz net anlaşılmıyor?

 

[unfors]

[/IMG]

N sütunundaki değerleri üstte bulunan ÜRÜN ADEDİ yazan hücrenin sağındaki "G" hücresinin değerine eşitlemek istiyorum makro ile

 

[unfors]

Anlaşılmadı herhalde yine

 

[Ömer BARAN]

Merhaba Sayın unfors.

Ekran görüntüsü üzerinden destek verilmesini istiyorsunuz.

Ekran görüntüsü yerine sorunuzu, (cevabımın altındaki açıklamaları okuyarak)
örnek belge ile desteklerseniz daha hızlı sonuca ulaşacağınızı düşünüyorum.

Mutlaka konuyla/sorunuzla ilgilenecek üyeler olacaktır bence.
.

 

[unfors]

Evet haklısınız syn Ömer BARAN
Dosyayı özellikle yüklemedim. Çünkü çok karışık ve daha fazla karmaşa yaratacağını düşündüğümden sadece çözemediğim kısım için yardım istedim.

İstediğimde şu şekilde aslında
N sütununu hücre değerleri = kendi satırından yukarıdaki Ürün adedi(H) hücresinin yanındaki G hücresinin değeri

 

[unfors]

Application.ScreenUpdating = False
Dim son As Long
dd = Sheets("ÜRÜN_MALİYET_FORMU").Range("A" & Rows.Count).End(xlUp).Row
For tt = 1 To dd
LastRow = Cells.Find(What:="ÜRÜN ADEDİ", After:=Cells(tt, 1), SearchOrder:=xlRows, SearchDirection:=xlPrevious).Row

If Range("N" & tt).Count < LastRow Then

Range("N" & tt).Value = Range("G" & LastRow).Value


End If

Bu şekilde sorunu hallettim ama işlem alt satırlarda çok zaman alıyor