otomatik satır oluşturma

[mustafaine1]

Sub deneme()

For i = 4 To 100
If Cells(i, "a") <> "" Then
Range(Cells(i, "h"), Cells(i, "v")).Formula = Range(Cells(3, "h"), Cells(3, "v")).Formula
Cells(i, "H").Value = Cells(i, "E").Value + Cells(i, "F").Value + Cells(i, "G").Value
Cells(i, "L").Value = Cells(i, "E").Value * Cells(i, "I").Value + Cells(i, "f").Value * Cells(i, "j").Value + Cells(i, "g").Value * Cells(i, "k").Value
Cells(i, "P").Value = Cells(i, "h").Value * Cells(i, "M").Value
Cells(i, "Q").Value = Cells(i, "h").Value * Cells(i, "N").Value
Cells(i, "R").Value = Cells(i, "h").Value * Cells(i, "O").Value
Cells(i, "s").Value = Cells(i, "p").Value + Cells(i, "q").Value + Cells(i, "r").Value + Cells(i, "l").Value
Cells(i, "t").Value = Cells(i, "L").Value * 8 / 100
Cells(i, "u").Value = (Cells(i, "s").Value + Cells(i, "t").Value) * 18 / 100
Cells(i, "v").Value = Cells(i, "u").Value + Cells(i, "t").Value + Cells(i, "s").Value
Else
Range(Cells(i, "h"), Cells(i, "v")).Value = ""
End If
Next

End Sub

hatta ben hepsini yazdim sizin icin

 

[ferrobaskan]

hocam büyüksünüz diğer sorduklarım hakkında bi bilgi veya görüş verebilecekmisiniz ?

 

[mustafaine1]

tabiiki dosyanizi hazirladim bicimlendirmeye goz atarsiniz conditional format var en baisitinden

 

[ferrobaskan]

hocam ben sizin hakkınızı ödeyemem ankaradaysanız bi yemeğimi yiyin çok ciddiyim bu konuda

 

[mustafaine1]

Estafurullah hepimizin emegi helal herkese, ama maalesef Ankarada degilim, Istanbulda yasiyorum, Unutmazsam bi organizasyon olurda o tarafa gelirsem ben size biseyler ismarlarim, insallah, isteginiz yahut dosyada eksik birsey olursa yazarsiniz tekrar, kolay gelsin..

 

[ferrobaskan]

yok hocam bu konuda yeteri kadar aydınlattınız beni teşekkür ederim