veri aktar

[osmanli2]

"i6"sütunundan itibaren iade miktarları dolu olan sütunlarlardaki satırları (b:h) "aktar butonu ile "iade" sayfasına kaldığı yerden yapıştıran ve "parzim"sayfasındaki satırları silip ve tekrar sıralayan kodlara ihityacım var.

 

[dEdE]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Aktar()
Set s1 = Sheets("parzim")
Set s2 = Sheets("İADE")
ss1 = s1.[C65536].End(3).Row
For i = ss1 To 6 Step -1
    If s1.Cells(i, 9).Value <> "" Then
        ss2 = s2.[C65536].End(3).Row + 1
        s2.Range("C" & ss2 & ":J" & ss2).Value = s1.Range("C" & i & ":J" & i).Value
        s2.Cells(ss2, 2).Value = ss2 - 5
        s1.Rows(i).Delete
    End If
Next
ss1 = s1.[C65536].End(3).Row
s1.Range("B6:B500").ClearContents
For j = 6 To ss1
    s1.Cells(j, 2).Value = j - 5
Next
End Sub

 

[Mx@Raid]

sayın dEdE sadece iki satırı kopyalıyor bilginiz olsun.

 

[dEdE]

sayın dEdE sadece iki satırı kopyalıyor bilginiz olsun.

Merhaba,
Örnek dosyada 2 sütunu kopyalaması normal. Sayın osmanlının koşulu "..."I6" sütunundan itibaren iade miktarları dolu olan sütunlarlardaki satırları..." şeklinde ve örnek dosyada sadece 2 satırın I sütunu dolu.
Eğer I sütununa veri girip denerseniz onları da aktardığını görebilirsiniz.
İyi alşamlar.

 

[osmanli2]

teşekkür ederim tam istediğim gibi elinize emeğinize sağlık

 

[osmanli2]

ayrıca birde; tek bir hücreye girdiğim metini, hep büyüf harfe çeviren koda ihityacım var.

 

[dEdE]

ayrıca birde; tek bir hücreye girdiğim metini, hep büyüf harfe çeviren koda ihityacım var.

Merhaba,
Forumda arama yaparsanız birçok örnek bulabilirsiniz.
Aşağıdaki kod da forumdan alınmıştır.

Sub BuyukHarf()
For Each Hücre In Selection
    Hücre.Value = Replace(Replace(Hücre.Value, "i", "İ"), "ı", "I")
    Hücre.Value = UCase(Hücre)
Next Hücre
End Sub

 

[osmanli2]

sayın dede ama ben sadece c4 ve c7 hücrelerine veri girerken buyuk harf olsun istiyorum.
acaba bu mümkün mü?

 

[dEdE]

Merhaba,
Aşağıdaki kodu ilgili sayfanın kod bölümüne eklerseniz olur.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C4,C7]) Is Nothing Then Exit Sub
Target.Replace "i", "İ"
Target.Replace "ı", "I"
If Target.Value <> "" Then Target.Value = StrConv(Target, vbUpperCase)
End
End Sub