Bilgi aktarımı

[almansa]

yardım edin lütfen parola 2006

 

[Skorpiyon]

Sayın almansa,

Dilerim işinizi görür. (Değişiklik yapıldı)

Saygılarımla...

 

[almansa]

çok tesekkürler

ilgilendiğin için çok tşk bir ricam daha olacak örnekte tam ifade edemedim ali sütünün daki rakam olmayanları boş sayfaya göndermese
masa 1
kitap
silgi 3

bunu boş sayfasına şöyle gönderse
masa 1
silgi 3

yani aradaki kitabı alide olmadığı için almasa

çok şey istiyorum galiba kusura bakma

 

[Skorpiyon]

Sayın almansa,

siz sadece Ali sütununun mu aktarılmasını istiyorsunuz ?
Aradaki boşluklar kaldırılarak.

Saygılarımla...

 

[Skorpiyon]

Sayın almansa,

Yukarıdaki göndermiş olduğum dosyayı güncelledim. Tekrar kontrol ediniz.

Saygılarımla...

 

[almansa]

tam istediğim şekilde olmus ellerine sağlık öğrenmem için bana bunu anlata bilirmisin

 

[Skorpiyon]

Sayın almansa,

Dilimizin döndüğü kadar anlatalım inş.

Sub Düğme5_Tıklat()
Dim b, c As Integer 'b ve c olarak değişken tanımladık ve bunların rakam olduğunu belirttik.
b = 8: c = 6 'b ve c'ye değer verdik.
yeniden: 'Aşağıda Goto ile buraya gönderdik.
If Cells(c, 11).Value <> "" Then 'E&#287;er (c dedi&#287;imiz 6 idi) 6.sat&#305;r&#305;n 11.s&#252;t&#252;nu bo&#351; de&#287;ilse
Sheets("BO&#350;").Cells(b, 11).Value = Sheets("Sayfa1").Cells(c, 11).Value 'Bo&#351; sayfas&#305;nda 8.sat&#305;r&#305;n 11.s&#252;tununa Sayfa1'deki 6.sat&#305;r&#305;n 11 s&#252;tunundaki veriyi e&#351;itledik.
Sheets("BO&#350;").Cells(b, 2).Value = Sheets("Sayfa1").Cells(c, 2).Value 'Ayn&#305; &#351;ekilde
Sheets("BO&#350;").Cells(b, 4).Value = Sheets("Sayfa1").Cells(c, 4).Value 'Ayn&#305; &#351;ekilde
c = c + 1 'E&#287;er h&#252;cre bo&#351; de&#287;ilse demi&#351;tik, o zaman c'nin de&#287;erini 1 art&#305;rd&#305;k
b = b + 1 'Ve b'nin de&#287;erini 1 art&#305;rd&#305;k.
'(Yani bo&#351; olup olmad&#305;&#287;&#305;na bak&#305;lacak h&#252;cre ile BO&#350; sayfas&#305;ndaki e&#351;itlenecek h&#252;crelerin de&#287;erlerini y&#252;kselttik)
Else 'E&#287;er h&#252;cre bo&#351; ise
c = c + 1 'Bu sefer sadece Sayfa1'deki verinin de&#287;erini art&#305;rd&#305;k ki bo&#351; olmayan sat&#305;r&#305; e&#351;itleyebilelim
End If 'D&#246;ng&#252;den &#231;&#305;kt&#305;k
If c = 37 Then 'Burada ise 37 sat&#305;r&#305; baz ald&#305;&#287;&#305;m&#305;z&#305; belirttik. Sayfa1'de 38. sat&#305;ra ge&#231;ildi&#287;inde d&#246;ng&#252;den &#231;&#305;kmak i&#231;in
GoTo bitir 'Ve c 37'ye e&#351;it oldu&#287;unda d&#246;ng&#252;den kurtulmak i&#231;in bitir'e y&#246;nlendirdik
End If 'c=37 e&#351;itli&#287;inin kontrol sonu
GoTo yeniden 'E&#287;er c 37'ye e&#351;it de&#287;ilse d&#246;ng&#252;y&#252; yeniden ba&#351;latabilmek i&#231;in yukar&#305; g&#246;nderdik
bitir:
End Sub

Biraz kar&#305;&#351;&#305;k oldu ama, tak&#305;ld&#305;&#287;&#305;n&#305;z bir yer olursa yeniden deneyebilirim

Sayg&#305;lar&#305;mla...

 

[almansa]

çok güzel anlatmıssın ama ben biraz beceriksizim herhalde bir örnek yapmak istedim beceremedim sana zahmet bakabilirmisin

 

[Skorpiyon]

Say&#305;n almansa,

Kodlar&#305;n&#305;zdaki b'nin de&#287;erini 7 yerine 8 yaparak deneyin.
Zira aktarmak istedi&#287;iniz veri, 8. sat&#305;rdan ba&#351;l&#305;yor.

Sayg&#305;lar&#305;mla...

 

[almansa]

eğer hücre boş değise yerine eğer hücrede sayı varsa şeklinde yapmak için nası bir kod yazmalıyım

 

[Skorpiyon]

Sayın almansa,

Aşağıdaki kodları deneyiniz.

Sub Düğme2_Tıklat()
Dim b, c As Integer
b = 8: c = 8
yeniden:
If IsNumeric(Cells(c, 11).Value) Then 'EĞER HÜCREDEKİ DEĞER SAYI İSE
Sheets("sayfa2").Cells(b, 11).Value = Sheets("Sayfa1").Cells(c, 11).Value
Sheets("sayfa2").Cells(b, 2).Value = Sheets("Sayfa1").Cells(c, 2).Value
Sheets("sayfa2").Cells(b, 4).Value = Sheets("Sayfa1").Cells(c, 4).Value
Sheets("sayfa2").Cells(b, 9).Value = Sheets("Sayfa1").Cells(c, 9).Value
c = c + 1
b = b + 1
Else
c = c + 1
End If
If c = 37 Then
GoTo bitir
End If
GoTo yeniden
bitir:
End Sub

Saygılarımla...