İki satır ekleme ve toplam aldırma Hazır Excel Makroları (VBA) | Excel Programları

Makroyu Kopyala

'Excel Makro (VBA) online eğitimleri için: https://www.excelsizeyeter.com/excelsizeyeter.com/udemy_giris.php adresine tıklayınız. Bir eğitim alana bir eğitim bedavadır. İkinci eğitim olarak Excel, Excel pratik çözümler, finans eğitimleri vb. alabilirsiniz. 
Sub InsertTwoRowsAndSum()
Dim oldVal
Dim rwTop As Long
Dim colmn As Integer
Dim offColmn As Integer
If IsEmpty(ActiveCell.Value) Then
MsgBox "You must select the top of the column " & _
Chr(13) & "you want to work on"
Exit Sub
End If
'store the active cell's value and row number
'oldVal is used to compare to the active cell's value as it changes
'rwTop is used to refer to the first cell in the sum function
oldVal = ActiveCell.Value
rwTop = ActiveCell.Row
'this is the column that will be summed
colmn = 4
'determine the offset from the active cell's column
offColmn = colmn ActiveCell.
Column
If offColmn = 0 Then
MsgBox "the column being checked for cell entry " & _
"changes can not be the same as the one being summed."
Exit Sub
End If
86
'select the next cell
ActiveCell.Offset(1, 0).Select
'loop until an empty cell is encountered
While Not IsEmpty(ActiveCell)
'if the value of the cell is not the same as oldVal, insert a row
'and sum formulas
If ActiveCell.Value <> oldVal Then
'add row
ActiveCell.EntireRow.Insert xlUp
'add sum formulas
ActiveCell.Offset(0, offColmn).Formula = "=sum(" & _
Range(Cells(rwTop, colmn), _
Cells(ActiveCell.Row 1,
colmn)). _
Address(False, False) & ")"
'go down a row and insert another line
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Insert xlUp
'store this row number for use in the sum formula and update oldVal
rwTop = ActiveCell.Row + 1
oldVal = ActiveCell.Offset(1, 0).Value
End If
'go to the next row and loop if not blank
ActiveCell.Offset(1, 0).Select
Wend
'handle the sum and row inserts needed for the last set of values
ActiveCell.EntireRow.Insert xlUp
ActiveCell.Offset(0, offColmn).Formula = "=sum(" & _
Range(Cells(rwTop, colmn), _
Cells(ActiveCell.Row 1,
colmn)).Address(False, False) _
& ")"
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Insert xlUp
End Sub

Benzer Sonuçlar
No	Makro Adı
1	İki satır ekleme ve toplam aldırma
2	excelde kendi eklenti ve fonksiyonlarınızı oluşturun
3	Karakterleri Bir Dizinden Çıkarın: Sadece bir metin dizesinin başlangıcındaki karakterleri kaldırın. Tek ihtiyacınız olan şey, bir hücreye başvurmanız ya da işleve metin dizesinden kaldırılacak karakter sayısına ve bir metin eklemenizdir. Metin dizesi için "rng" ve kaldırılacak karakter sayısı için "cnt" olmak üzere iki bağımsız değişkeni vardır. Örneğin: Bir hücreden ilk karakterleri kaldırmak isterseniz 1 incnt;
4	hücreye formül yazdirirken referans çeşitleri
5	hepsi bir arada toplama çarpma bölme
6	Hücre Değiştiğinde Satırları ve Toplam Formülü Ekleme
7	Metin Sarmalamasını Kaldırma: Bu kod, tek bir tıklamayla tüm çalışma sayfasındaki metin sarma işlemini kaldırmanıza yardımcı olacaktır. Önce tüm sütunları seçer ve daha sonra metin kaydırmayı kaldırır ve tüm satırları ve sütunları otomatik olarak sığar.
8	satır sütun gizleme
9	satır sütun gizleme 1
10	Birden Çok Satır Ekle: Bu makroyu çalıştırdıktan sonra bir giriş kutusu gösterecek ve eklemek istediğiniz satır sayısını girmeniz gerekiyor.
11	kullanıcı adı ve parola eklemek
12	süzlü aktarma
13	Birden Çok Çalışma Sayfası Ekle: İş kitabınızda tek bir puntoda birden çok çalışma sayfası eklemek istiyorsanız bu kodu kullanabilirsiniz. Bu makro kodunu çalıştırdığınızda, girmek istediğiniz toplam sayfa sayısını girmek için bir giriş kutusu alırsınız.
14	menü çubuğunun silinmesi ve özel bir menünün oluşturulması
15	Satırlarda Farkı vurgulayın: Ve bu kodu kullanarak iki satır (karşılık gelen hücreler) arasındaki farkı vurgulayabilirsiniz.
16	textboxta metni iki yana yaslama ve tab özelliği
17	hücre, sütun seçimleri
18	hücre ve sütun seçimleri
19	makrolar kutusu ve makrolar görünsün
20	veri olan iki ayrı sütunu birleştirme

Benzer Sonuçlar

Makro Adı

İki satır ekleme ve toplam aldırma

excelde kendi eklenti ve fonksiyonlarınızı oluşturun

Karakterleri Bir Dizinden Çıkarın: Sadece bir metin dizesinin başlangıcındaki karakterleri kaldırın. Tek ihtiyacınız olan şey, bir hücreye başvurmanız ya da işleve metin dizesinden kaldırılacak karakter sayısına ve bir metin eklemenizdir. Metin dizesi için "rng" ve kaldırılacak karakter sayısı için "cnt" olmak üzere iki bağımsız değişkeni vardır. Örneğin: Bir hücreden ilk karakterleri kaldırmak isterseniz 1 incnt;

hücreye formül yazdirirken referans çeşitleri

hepsi bir arada toplama çarpma bölme

Hücre Değiştiğinde Satırları ve Toplam Formülü Ekleme

Metin Sarmalamasını Kaldırma: Bu kod, tek bir tıklamayla tüm çalışma sayfasındaki metin sarma işlemini kaldırmanıza yardımcı olacaktır. Önce tüm sütunları seçer ve daha sonra metin kaydırmayı kaldırır ve tüm satırları ve sütunları otomatik olarak sığar.

satır sütun gizleme

satır sütun gizleme 1

Birden Çok Satır Ekle: Bu makroyu çalıştırdıktan sonra bir giriş kutusu gösterecek ve eklemek istediğiniz satır sayısını girmeniz gerekiyor.