mahmyt
Altın Üye
- Katılım
- 12 Aralık 2019
- Mesajlar
- 94
- Excel Vers. ve Dili
- türkçe
- Altın Üyelik Bitiş Tarihi
- 16-03-2026
Merhabalar; Aşağıda excel görüntüsünde AA1 ve AB1 satırlarından D5 e gelen IHR2020000000001 terimini D6 da ve diğer D hücrelerinde 1 er 1 er artırmak istiyorum ancak olmadı maalesef!!
Yardımcı olursanız şimdiden teşekkür ederim...
İyi çalışmalar...
Dim sonsatır As Variant
sonsatır = Worksheets("2020").Range("A" & Rows.Count).End(xlUp).Row
ihracat = Worksheets("2020").Range("D" & Rows.Count).End(xlUp).Row
s1 = Worksheets("2020").Range("z1")
a1 = Worksheets("2020").Range("AA1")
b1 = Worksheets("2020").Range("AB1")
Worksheets("2020").Range("Z1") = Worksheets("2020").Range("AA1") & Worksheets("2020").Range("AB1")
If Worksheets("2020").Range("A" & sonsatır + 1) = "" Then
Worksheets("2020").Cells(sonsatır + 1, 1) = TextBox1.Value
Worksheets("2020").Cells(sonsatır + 1, 2) = TextBox2.Value
Worksheets("2020").Cells(sonsatır + 1, 3) = TextBox3.Value
Worksheets("2020").Cells(sonsatır + 1, 4) = s1
Else
Worksheets("2020").Cells(sonsatır + 1, 1) = TextBox1.Value
Worksheets("2020").Cells(sonsatır + 1, 2) = TextBox2.Value
Worksheets("2020").Cells(sonsatır + 1, 3) = TextBox3.Value
Worksheets("2020").Cells(sonsatır + 1, 4) = Worksheets("2020").Cells(ihracat - 1, 1) + 1
Yardımcı olursanız şimdiden teşekkür ederim...
İyi çalışmalar...
BEY.TARİHİ | BEY.NO | FİRMA | FATURA NO |
1 | 2 | 3 | IHR2020000000001 |
1 | 2 | 3 | IHR2020000000001 |
1 | 2 | 3 | IHR2020000000001 |
Dim sonsatır As Variant
sonsatır = Worksheets("2020").Range("A" & Rows.Count).End(xlUp).Row
ihracat = Worksheets("2020").Range("D" & Rows.Count).End(xlUp).Row
s1 = Worksheets("2020").Range("z1")
a1 = Worksheets("2020").Range("AA1")
b1 = Worksheets("2020").Range("AB1")
Worksheets("2020").Range("Z1") = Worksheets("2020").Range("AA1") & Worksheets("2020").Range("AB1")
If Worksheets("2020").Range("A" & sonsatır + 1) = "" Then
Worksheets("2020").Cells(sonsatır + 1, 1) = TextBox1.Value
Worksheets("2020").Cells(sonsatır + 1, 2) = TextBox2.Value
Worksheets("2020").Cells(sonsatır + 1, 3) = TextBox3.Value
Worksheets("2020").Cells(sonsatır + 1, 4) = s1
Else
Worksheets("2020").Cells(sonsatır + 1, 1) = TextBox1.Value
Worksheets("2020").Cells(sonsatır + 1, 2) = TextBox2.Value
Worksheets("2020").Cells(sonsatır + 1, 3) = TextBox3.Value
Worksheets("2020").Cells(sonsatır + 1, 4) = Worksheets("2020").Cells(ihracat - 1, 1) + 1