sutun aktarma 3 sheet mevcut

[seranonet]

forumda baktım ama tam istediğim şeylere ulaşamadım ornek dosyamda 3 sheet ne istediğimi anlatmak istedim şimdiden yardım edecek arkadaşlara çok teşekkür ederim

 

[Emir Hüseyin Çoban]

. . .

sutunu sutub aktarma

Sub kod_sutunu_sutub_aktarma()
Dim s1 As Worksheet
Set s1 = Sheets("sutunu sutub aktarma")
aa = Sheets("sutunu sutub aktarma").[a65536].End(3).Row

For i = 1 To aa
s1.Cells(i, "b") = s1.Cells(i, "a")
Next i

i = Empty
aa = ""
End Sub

sütündaki verileri silme

Sub kod_sütündaki_verileri_silme()
Columns("A:A").ClearContents
End Sub

sadece dolu olan hücreler

Sub kod_sadece_dolu_olan_hücreler()
Dim s3 As Worksheet
Set s3 = Sheets("sadece dolu olan hücreler")
aa = Sheets("sadece dolu olan hücreler").[a65536].End(3).Row

For i = 1 To aa
If s3.Cells(i, "a") = "" Then
Else
s3.Cells(i, "b") = s3.Cells(i, "a")
End If
Next i

i = Empty
aa = ""
End Sub

. . .

 

[Necdet]

Merhaba,

Sayın Hüseyin Çoban'ın "Sadece Dolu Olan Hücreler" için önerdiği kodlarda döngüdeki if yapısını kısaltmak olası.

    If s3.Cells(i, "a") [B][COLOR=black]<>[/COLOR][/B] "" Then s3.Cells(i, "b") = s3.Cells(i, "a")

gibi de yazılabilir, aşağıdaki gibi de olur.

    If [B][COLOR=red]Not[/COLOR][/B] s3.Cells(i, "a") [B][COLOR=red]=[/COLOR][/B] "" Then s3.Cells(i, "b") = s3.Cells(i, "a")

 

[Emir Hüseyin Çoban]

. . .

Merhaba Sy Necdet Yeşertener. Teşekkürler.

Ustalardan İf - Then - İf Not - Elseİf vb. yapılarıyla ilgili örneklemeler bekliyorum.
Kodlama için faydalı olacağını düşünüyorum.
. . .

 

[seranonet]

ikinizede verdiğiniz bilgiler için çok teşekkür ederim yanlız sutunu sutub aktarma ve sadece dolu olan hücreler örneklerinde sayfa ismini yazdasak olmazmı çünkü elimde o şekilde çok fazla sayfa var hepsine tek tek makro yapmak zorunda kalmadan halledebilirmiyiz.

 

[Emir Hüseyin Çoban]

. . .

Aşağıda kırmızı ile belirttiğim kodları silerek yapabilirsiniz.
Diğer kodlar sizde bu şekilde düzenleyebilirsiniz.

Sub kod_sutunu_sutub_aktarma()
Dim s1 As Worksheet
Set s1 = Sheets("sutunu sutub aktarma")
aa = Sheets("sutunu sutub aktarma").[a65536].End(3).Row

For i = 1 To aa
s1.Cells(i, "b") = s1.Cells(i, "a")
Next i

i = Empty
aa = ""
End Sub

. . .

 

[seranonet]

BU FORMULDE NERELERİ SİLMEM GEREKİYOR SAYFA İSMİNİ YAZMAMAK İÇİN


Sub kod_sadece_dolu_olan_hücreler()
Dim s3 As Worksheet
Set s3 = Sheets("sadece dolu olan hücreler")
aa = Sheets("sadece dolu olan hücreler").[a65536].End(3).Row

For i = 1 To aa
If s3.Cells(i, "a") = "" Then
Else
s3.Cells(i, "b") = s3.Cells(i, "a")
End If
Next i

i = Empty
aa = ""
End Sub

 

[Emir Hüseyin Çoban]

. . .

sub kod_sadece_dolu_olan_hücreler()
dim s3 as worksheet
set s3 = sheets("sadece dolu olan hücreler")
aa = sheets("sadece dolu olan hücreler").[a65536].end(3).row

for i = 1 to aa
ıf s3.cells(i, "a") = "" then
else
s3.cells(i, "b") = s3.cells(i, "a")
end ıf
next i

i = empty
aa = ""
end sub

. . .

 

[seranonet]

Bu işlemeler bir hayli uzun sürüyor bunu daha kısaltmanın bir yolu varmı acaba ben enfazla 350 satır kullanıyorum satır sayısını kısaltmak işe yararmı yararsa bunu nasıl yapabilirim

Teşekkür ederim





Sub Cari_Temzile()
For i = [J10].End(xlDown).Row To 10 Step -1
If Cells(i, 10).Value = "0" Then
Rows(i).Delete
End If
Next i
MsgBox "Sıfır Faturalar Silindi"

aa = [J65536].End(3).Row
For i = 12 To aa
Cells(i, "G") = Cells(i, "J")
Next i
i = Empty
aa = ""
MsgBox "Yeni Bakiyeler Aktarıldı"