Sayfa 1 den sayfa2 ye aktar

[bilalakdeniz]

Merhaba arkadaşlar ben gönderdiğim dosyanın içeriğinede yazdığım gibi verileri sayfa1 den sayfa2 ye otomatik ve kendi sıra numarası vererek aktarmasını istiyorum. ve alt kısmında sıra numarasını yazdığımda önceden girilmiş bir veriyi bulmasını istiyorum.Teşekkürler iyi çalışmalar

 

[Kemal Demir]

Günaydın,

Aşagıdaki kod zannedersem işinizi görecektir.

Sub aktar()
Dim say As Integer
say = Sheets("Sayfa2").[b65536].End(3).Row + 1
Sheets("Sayfa1").Rows("2:2").Copy
If Sheets("Sayfa1").Cells(2, 1) = "" Then
Sheets("Sayfa2").Cells(say, 1).PasteSpecial Paste:=xlPasteValues
Sheets("Sayfa2").Cells(say, 1) = say - 1
Sheets("Sayfa1").Select
Else
Sheets("Sayfa2").Cells(Sheets(1).Cells(2, 1) * 1 + 1, 1).PasteSpecial Paste:=xlPasteValues
Sheets("Sayfa1").Select
End If
End Sub

Ek'teki dosyayı inceleyiniz.

 

[bilalakdeniz]

Çok teşekkür ederim, ama aynı kaydı birden fazla işlemesini istemiyorum aynı kaydı diğerinin üzerine yazmasını istiyorum ve sıra noya girilen veri numarasını yazdığımda o verileri geri getirmesini ve aktar dediğimde girilen verilerin aktarıldıktan sonra sarı yerden silinmesini mümkünmü? Teşekkürler

 

[Kemal Demir]

Merhaba,

İstediğiniz şekilde revize edildi.

Sub aktar()
say = Sheets("Sayfa1").Range("a2")
If say = "" Then
MsgBox ("Satır Sayısını Girmediniz"), vbCritical, "Dikkat"
Exit Sub
End If
bak = Sheets("Sayfa2").Cells(say + 1, 1)
If bak = Empty Then
Rows("2:2").Copy
Sheets("Sayfa2").Cells(say + 1, 1).PasteSpecial Paste:=xlPasteValues
Sheets("Sayfa1").Select
Range("b7:b36").ClearContents
Range("b2").ClearContents
Else
cvp = MsgBox("AYNI KAYIT VAR,YENISI İLE DEĞİŞTİRİLSİN Mİ ?", vbYesNo, " DİKKAT")
If cvp = vbYes Then
Rows("2:2").Copy
Sheets("Sayfa2").Cells(say + 1, 1).PasteSpecial Paste:=xlPasteValues
Sheets("Sayfa1").Select
Range("b7:b36").ClearContents
Range("b2").ClearContents
End If
End If
End Sub

Dosyayı inceleyiniz

 

[bilalakdeniz]

Çok Teşekkür ederim. Kayıtlı olan bir verinin numarasını yazınca bilgileri geri bulması gibi birşey söz konusumu. İlgi ve yardımlarınız için çok tşk ederim.

 

[Kemal Demir]

Merhaba,

Ek'teki örneği inceleyiniz.

Arama için kullanılan kod;

Sub arama()
Dim veri
veri = [a2]
If Range("a2").Value <> "" Then
For x = 7 To 36
Cells(x, 2) = Sheets(2).Cells(veri + 1, x - 5)
Next
Else
MsgBox ("Araması Yapacak Sıra No Giriniz"), vbCritical, "Uyarı"
End If
End Sub

Umarım istediğiniz gibi olmustur.

 

[bilalakdeniz]

Çok teşekkür ederim. Elinize sağlık.

 

[Kemal Demir]

Ben teşekkurederim.

 

[bilalakdeniz]

dosyayı kaydederken gizlilik uyarısı veriyor bu ne demek ve nasıl kaybederim bu hata mesajını

 

[bilalakdeniz]

Aktar ve arama

Arkadaşlar aktar butonuna bastıktan sonra hücreleri boşaltamasını istiyorum ama bazı hüzreler formüllü ve arama yaparken farklı bilgileri buluyor. Sayfa2 deki verileri bulmasını istiyorum. Teşekkürler

 

[Kemal Demir]

bilalakdeniz,

Sorunuza daha önceki başlık altına taşıdım.Forumda harici bir yer kaplamaması açısından.
Adım adım yapmak istediklerinizden ilerleyebiliriz.

Aşagıdaki kod işinizi görür mü?

Dim veri
veri = [a2] * 1 + 1
[b6] = Sheets("Sayfa2").Cells(Sheets("Sayfa1").Cells(2, 1) * 1 + 1, 1).Value
[b7] = Sheets("Sayfa2").Cells(veri, 2)
[b8] = Sheets("Sayfa2").Cells(veri, 3)
[b9] = Sheets("Sayfa2").Cells(veri, 4)
[b10] = Sheets("Sayfa2").Cells(veri, 5)
[b11] = Sheets("Sayfa2").Cells(veri, 6)
[b12] = Sheets("Sayfa2").Cells(veri, 7)
[b13] = Sheets("Sayfa2").Cells(veri, 8)
[b14] = Sheets("Sayfa2").Cells(veri, 9)
[b15] = Sheets("Sayfa2").Cells(veri, 10)
[b16] = Sheets("Sayfa2").Cells(veri, 11)
[b17] = Sheets("Sayfa2").Cells(veri, 12)
End Sub

 

[bilalakdeniz]

Bu makroyu aktar ın altınamı kopyalayacağım yoksa yeni bir makromu açacağım. Teşekkürler

 

[bilalakdeniz]

aktar dedikten sonra sildiği ve silmesi gereken hücreleri ben belirlemek istiyorum onu nasıl yaparım.

 

[Kemal Demir]

Başja bir kod olarak tanımlayınız.

Örnektir:

[b7] = Sheets("Sayfa2").Cells(veri, 2)

2 yazan yer senin verinin alınacagı kolon.

 

[bilalakdeniz]

Ara bul veri sayfasındaki sıra numarasını yaz

Veri girişindeki fatura numarasını yazdığımda sıra numarasını nasıl bulurum. ara formülüyle olmuyor makroyla yapmak ve enter e bastığımda sıra numarasını bulmasını istiyorum.ve sıra numarasına göre diğer verileri aratırım, ve Giriş sayfasındaki #YOK hata mesajlarını nasıl kaybedebilirim. birde bu dosyanın çok fazla kasılmaması için yapabileceğim birşey varmı. Kolay gelsin

 

[bilalakdeniz]

veri sayfasında Yan yana yazan malzemelerimi başka sayfada sütun haline alt alta yazdırabilirmiyim.