Eğer yan hücre doluysa kopyalasın.

[hadromer]

Merhaba,
A,B,C,D,E sütunları olan bir dosyaya f sütunu ekleyeceğim. F sütunu C sütunundaki verilerden oluşacak. F1 sütunu "=C1" formülü ile oluşacak. Yalnız ben şunu istiyorum. Eğer E1 hücresi dolu ise C1 deki veriyi alsın. Bunun için yardımcı olabilir misiniz ? formüllü örnek dosyayı ekledim. teşekkür ederim.

 

[YUSUF44]

Deneyiniz:

=EĞER(E1<>"";C1;"")

 

[hadromer]

Deneyiniz:

=EĞER(E1<>"";C1;"")

Çok teşekkür ederim Yusuf Hocam, hızınıza yetişemiyorum

bir konuda daha fikrinizi almak istedim müsaitseniz. Dosya içerisinde "WMS ve TDI" yazılı hücreler ve bunların altında bir formülle elde edilmiş veriler var. Dosyadakiveriler grup grup gördüğünüz üzre. Ben WMS TDI kısımlarını kopyala yapıştır yoluyla her grubun altına yapıştırıyorum. Acaba bunun bir pratik yolu var mıdır ? ne yapabiliriz bunun için

 

[hadromer]

bu işaretli alanı her grubun altına kopyala yapıştır yapıyorum. 1234 tane grup var hayli yoruyor. Birde toplam formülleri gruplardaki hücre sayısı aynı olmadığı için birbiri ile uyuşmuyor düzeltmek zorunda kalıyorum tek tek. Bu yüzden sizden yardım istedim.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub toparla()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    If Cells(i, "A") <> "" Then
        bas = i
        For j = i + 1 To son
            If Cells(j, "A") = "" Then
                Rows(j).Insert shift:=xlDown
                Cells(j, "G") = "WMS"
                Cells(j, "H") = "TDI"
                Cells(j + 1, "C") = "Toplam"
                Cells(j + 1, "E").Formula = "=SUM(E" & bas & ":E" & j - 1 & ")"
                Cells(j + 1, "F").Formula = "=SUM(F" & bas & ":F" & j - 1 & ")"
                Cells(j + 1, "G").Formula = "=E" & j + 1 & "/F" & j + 1
                Cells(j + 1, "H").Formula = "=(G" & j + 1 & "*25-25)"
                Cells(j + 1, "I") = "Toplam"
                son = son + 1
                i = j + 1
                j = son
            End If
        Next
    End If
Next 
End Sub

 

[hadromer]

Aşağıdaki makroyu deneyiniz:

Sub toparla()
son = Cells(Rows.Count, "A").End(3).Row
For i = 1 To son
    If Cells(i, "A") <> "" Then
        bas = i
        For j = i + 1 To son
            If Cells(j, "A") = "" Then
                Rows(j).Insert shift:=xlDown
                Cells(j, "G") = "WMS"
                Cells(j, "H") = "TDI"
                Cells(j + 1, "C") = "Toplam"
                Cells(j + 1, "E").Formula = "=SUM(E" & bas & ":E" & j - 1 & ")"
                Cells(j + 1, "F").Formula = "=SUM(F" & bas & ":F" & j - 1 & ")"
                Cells(j + 1, "G").Formula = "=E" & j + 1 & "/F" & j + 1
                Cells(j + 1, "H").Formula = "=(G" & j + 1 & "*25-25)"
                Cells(j + 1, "I") = "Toplam"
                son = son + 1
                i = j + 1
                j = son
            End If
        Next
    End If
Next
End Sub

harika çalışıyor teşekkür ederim