- Katılım
- 9 Eylül 2012
- Mesajlar
- 171
- Excel Vers. ve Dili
- 2003
- Altın Üyelik Bitiş Tarihi
- 09-12-2023
Detayları tabloda paylaştım
Ekli dosyalar
-
505.8 KB Görüntüleme: 7
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
1. Evet A1:10 arası1. Tablonuzun ham hali A1:A10 renksiz olan alan mı?
2. Yeşil olan bölgeye mi yazacağız? Yoksa onun da altına mı?
3. Tablonun satır sayısı değişken mi? Şu an beyazlar 10, bu bazen daha fazla olabilir mi?
4. Fonksiyonlar kısmında sormuşsunuz ancak sanırım kodla çok daha pratik olacaktir. Size uyar mı?
Sub YeniMakro1()
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Range("D" & i) > 1 Then
Son = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & Son + 1, "A" & Son + Range("D" & i)) = Range("A" & i)
Range("B" & Son + 1, "B" & Son + Range("D" & i)) = Range("B" & i)
Range("C" & Son + 1, "C" & Son + Range("D" & i)) = Range("C" & i)
End If
Next i
End Sub