Oda numarasına göre isimleri yerleştirmek

[Mdemir63]

Selamlar,

Arkadaşlar dosyamdaki adı sayfasında isimler var karşılarında da kalacakları oda numaraları var. Benim istediğim odalar 4 er kişilik olduğu için odalar sayfasındaki baş tarafında oda numaraları yazan tabloma o odada kalanları karşısındaki satırlara yazdırmak Bunu nasıl yapabilirim.

Saygılar

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Set s1 = Sheets("ADI")
Set s2 = Sheets("ODALAR")
For sut1 = 1 To s1.[b65536].End(3).Row
For sut2 = 1 To s2.[b65536].End(3).Row
If s1.Range("b" & sut1) = "112" And s2.Range("b" & sut2) = "112" Then
s1.Range("b" & sut1).Offset(0, -1).Copy
s = s + 1
s2.Range("b" & s + 4).Offset(0, 1).PasteSpecial
End If
If s1.Range("b" & sut1) = "113" And s2.Range("b" & sut2) = "113" Then
s1.Range("b" & sut1).Offset(0, -1).Copy
ss = ss + 1
s2.Range("b" & ss + 8).Offset(0, 1).PasteSpecial
End If
Next
Next
Application.CutCopyMode = False
End Sub

 

[Recep İpek]

Aşağıdaki kodları deneyin.

Sub Yaz()
Set s1 = Sheets("ADI ")
Set s2 = Sheets("ODALAR")
s2.Range("c6:c39").ClearContents
For i = 2 To s1.[b65536].End(3).Row
odano = s1.Cells(i, "b").Value
adi = s1.Cells(i, "a").Value
    For j = 6 To 36 Step 5
        If s2.Cells(j, "b").Value = odano Then
            sat = WorksheetFunction.CountA(Range(s2.Cells(j, "c"), s2.Cells(j + 4, "c")))
            s2.Cells(j + sat, "c").Value = adi
        End If
    Next j
Next i
Set s1 = Nothing
Set s2 = Nothing
MsgBox "Bitti"
End Sub

 

[Mdemir63]

sELAMLAR,
Hocam elinize sağlık tam istediğim gibi ancak bu dosyada 7 adet oda var bu oda sayısı nı çoğaltırsak yanı 119, 120 121...... diye devam ederse kodlarda nereyi değiştirmemiz gerekir?

Saygılar

 

[Necdet]

Evet baya uğraştım. Bu sorun fonksiyonlarla nasıl çözülür diye.
Rahat uyuyabilirim.

Sayın gomutanım baba soruydu benim için

 

[Mdemir63]

Evet baya uğraştım. Bu sorun fonksiyonlarla nasıl çözülür diye.
Rahat uyuyabilirim.

Sayın gomutanım baba soruydu benim için

sELAMLAR,
Necdet abi çok teşekkürler bayağı uğraştırdım sizi elinize sağlık yanlış anlamadıysam pivot table ilede mi yaptınız yoksa o formülleri yapabilmek için pivot tableye ihtiyaç mı var

Saygılarımı sunuyorum.


Not: Formülü parantez içine alırken CTRL+SHİFT+ENTER mi yapıyorduk?

 

[Necdet]

Sayın Komutan'ım

Formül ile yaptım ama Pivot Table (Özet Tablo) ile de yapılabileceğini göstermek istedim,

Bir anlamda doğrulama.

Artık hangisini seçerseniz Gomutanım

 

[Necdet]

Evet formül dizi formül, bu yüzden dediğiniz gibi Ctrl+Shift+Enter tuşlarına basmak gerek

 

[Mdemir63]

Günaydınlar,
Necdet abi kusura bakma ben sorumu sorduktan sonra çıktım forumdan çünkü siz de artık rahat uyuyabilirim demişsiniz onun için sabah bakarım diye düşündüm . Çok teşekkür ederim.

İyi çalışmalar

Saygılar

 

[Mdemir63]

Selamlar,
Necdet abi rahatsız ediyorum ama bir aksilik var çözemedim. Sizin yaptığınız dosyada normal ama ben kendi dosyama uyguladığımda ekteki dosyadaki hatayı veriyor. Abi sana zahmet bakabilirmisin?

Saygılar

 

[Korhan Ayhan]

Selamlar,

Formül sonlarındaki "-1" değerlerini "-2" olarak değiştirip denermisiniz.

 

[Necdet]

Sayın COST_CONTROL yanıtı vermiş. Gerekçe ise VERİ GİRİŞİ sayfasında başlığın 2 satırdan oluşması.

 

[Mdemir63]

Çok teşekkür ederim gecenin bu yarısında yine imdada yetiştiniz

Her ikinizde sağolun

Saygılarım sunarım