-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Bilgi aktarımı
- Konbuyu başlatan almansa
- Başlangıç tarihi
S
Skorpiyon
Misafir
Sayın almansa,
Dilerim işinizi görür. (Değişiklik yapıldı)
Saygılarımla...
Dilerim işinizi görür. (Değişiklik yapıldı)
Saygılarımla...
Son düzenleme:
ç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
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
S
Skorpiyon
Misafir
Sayın almansa,
siz sadece Ali sütununun mu aktarılmasını istiyorsunuz ?
Aradaki boşluklar kaldırılarak.
Saygılarımla...
siz sadece Ali sütununun mu aktarılmasını istiyorsunuz ?
Aradaki boşluklar kaldırılarak.
Saygılarımla...
S
Skorpiyon
Misafir
Sayın almansa,
Yukarıdaki göndermiş olduğum dosyayı güncelledim. Tekrar kontrol ediniz.
Saygılarımla...
Yukarıdaki göndermiş olduğum dosyayı güncelledim. Tekrar kontrol ediniz.
Saygılarımla...
S
Skorpiyon
Misafir
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ğer (c dediğimiz 6 idi) 6.satırın 11.sütünu boş değilse
Sheets("BOŞ").Cells(b, 11).Value = Sheets("Sayfa1").Cells(c, 11).Value 'Boş sayfasında 8.satırın 11.sütununa Sayfa1'deki 6.satırın 11 sütunundaki veriyi eşitledik.
Sheets("BOŞ").Cells(b, 2).Value = Sheets("Sayfa1").Cells(c, 2).Value 'Aynı şekilde
Sheets("BOŞ").Cells(b, 4).Value = Sheets("Sayfa1").Cells(c, 4).Value 'Aynı şekilde
c = c + 1 'Eğer hücre boş değilse demiştik, o zaman c'nin değerini 1 artırdık
b = b + 1 'Ve b'nin değerini 1 artırdık.
'(Yani boş olup olmadığına bakılacak hücre ile BOŞ sayfasındaki eşitlenecek hücrelerin değerlerini yükselttik)
Else 'Eğer hücre boş ise
c = c + 1 'Bu sefer sadece Sayfa1'deki verinin değerini artırdık ki boş olmayan satırı eşitleyebilelim
End If 'Döngüden çıktık
If c = 37 Then 'Burada ise 37 satırı baz aldığımızı belirttik. Sayfa1'de 38. satıra geçildiğinde döngüden çıkmak için
GoTo bitir 'Ve c 37'ye eşit olduğunda döngüden kurtulmak için bitir'e yönlendirdik
End If 'c=37 eşitliğinin kontrol sonu
GoTo yeniden 'Eğer c 37'ye eşit değilse döngüyü yeniden başlatabilmek için yukarı gönderdik
bitir:
End Sub
Biraz karışık oldu ama, takıldığınız bir yer olursa yeniden deneyebilirim
Saygılarımla...
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ğer (c dediğimiz 6 idi) 6.satırın 11.sütünu boş değilse
Sheets("BOŞ").Cells(b, 11).Value = Sheets("Sayfa1").Cells(c, 11).Value 'Boş sayfasında 8.satırın 11.sütununa Sayfa1'deki 6.satırın 11 sütunundaki veriyi eşitledik.
Sheets("BOŞ").Cells(b, 2).Value = Sheets("Sayfa1").Cells(c, 2).Value 'Aynı şekilde
Sheets("BOŞ").Cells(b, 4).Value = Sheets("Sayfa1").Cells(c, 4).Value 'Aynı şekilde
c = c + 1 'Eğer hücre boş değilse demiştik, o zaman c'nin değerini 1 artırdık
b = b + 1 'Ve b'nin değerini 1 artırdık.
'(Yani boş olup olmadığına bakılacak hücre ile BOŞ sayfasındaki eşitlenecek hücrelerin değerlerini yükselttik)
Else 'Eğer hücre boş ise
c = c + 1 'Bu sefer sadece Sayfa1'deki verinin değerini artırdık ki boş olmayan satırı eşitleyebilelim
End If 'Döngüden çıktık
If c = 37 Then 'Burada ise 37 satırı baz aldığımızı belirttik. Sayfa1'de 38. satıra geçildiğinde döngüden çıkmak için
GoTo bitir 'Ve c 37'ye eşit olduğunda döngüden kurtulmak için bitir'e yönlendirdik
End If 'c=37 eşitliğinin kontrol sonu
GoTo yeniden 'Eğer c 37'ye eşit değilse döngüyü yeniden başlatabilmek için yukarı gönderdik
bitir:
End Sub
Biraz karışık oldu ama, takıldığınız bir yer olursa yeniden deneyebilirim
Saygılarımla...
S
Skorpiyon
Misafir
Sayın almansa,
Kodlarınızdaki b'nin değerini 7 yerine 8 yaparak deneyin.
Zira aktarmak istediğiniz veri, 8. satırdan başlıyor.
Saygılarımla...
Kodlarınızdaki b'nin değerini 7 yerine 8 yaparak deneyin.
Zira aktarmak istediğiniz veri, 8. satırdan başlıyor.
Saygılarımla...
S
Skorpiyon
Misafir
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...
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...